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Computer Welt ey 


Computerkunst 


Bisher sind wir hauptsächlich auf 
Grafikanwendungen wie CAD 
oder den Entwurf von Zeitungs- 
seiten eingegangen. Heute wollen 
wir Ihnen einen Künstler vor- 
stellen, dessen Karriere durch 
die Entwicklung der Apple Mac 
Paint-Software eine neue IV 
Richtung nahm. pn . 


W: die gesamte Macintosh-Software ba- 
siert auch MacPaint auf WIMP: Sobald 
die Diskette geladen ist, bietet der Rechner 
verschiedene Mal- und Zeichenmöglichkeiten 
an. Der Anwender kann zwischen Pinsel und 
Bleistift wählen. Festgelegte Bereiche werden 
durch Anwahl von Farbdosen koloriert. Mit der 
„Spritzpistole“ lassen sich auch gepunktete 
Farbflächen erzeugen. Neben Malen bietet 
MacPaint auch die Möglichkeit zum Zeichnen 
geometrischer Figuren und Formen. Alles 
kann mit einem der 38 Muster oder Farben ko- 
loriert werden. 

Fehler lassen sich durch Anwahl des Radier- 
gummi-Symbols beseitigen. Außerdem kön- 
nen Bildelemente eingegrenzt und verschoben 
werden. Das Menü „Goodies“ bietet weitere 
Möglichkeiten: ‚Fat Bits‘ vergrößert bestimmte 
Bildteile so weit, daß der Computer-Grafiker 
einzelne Pixel bearbeiten und kleinste Details 
löschen oder hinzufügen kann. 

Wie die gesamte Macintosh-Software ist 
auch MacPaint mausgesteuert. Mit Zusatzein- 
richtungen wie dem Lichtgriffel-Grafiktablett 
‚MacTablet' wird die Arbeit noch angenehmer. 

Ein überzeugter MacPaint-Anhänger ist der 
französische Künstler Frederic Voisin. Vor 
achtzehn Monaten kam er noch mit dem tradi- 
tionellen Handwerkszeug aus: Papier, Bleistift, 
Tinte und Pinsel. Heute benutzt er den Macin- 
tosh: Schon nach den ersten auf der Apple Lisa 
eines Freundes gezeichneten Strichen war er 
von der Grafik-Fähigkeit des Computers be- 
geistert. Er kam auf die Idee, statt Zeichnun- 
gen großformatige Bilder zu machen. Das hatte 
mit den Besonderheiten der Apple Lisa zu tun: 
Die Bildschirmdarstellung war schwarzweiß, 
die Voisin dann nachkolorierte. Zum anderen 
war das Bild zwar klein, doch die hervorra- 
gende Auflösung machte es möglich, die Bil- 
der zu vergrößern. 

Der Künstler zögerte nicht lange und be- 
schaffte sich für weitere Experimente einen 
Apple Macintosh. Interessanterweise führte 
erst der Computer den Maler an die klassi- 
schen Traditionen seiner Kunst heran: die Me- 
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thode, einen Rohentwurf auf Leinwand nach- 
träglich zu bemalen. Zum Entwurf verwandte 
Voisin aber keinen Bleistift, sondern einen 
Ausdruck mit dem Imagewriter, der mit einem 
Großkopierer auf Formate bis zu drei Meter 
Höhe vergrößert wurde. Diese Kopie wurde 
nun mit Kaninchen-Knochenleim auf die Lein- 
wand geklebt; ein Verfahren, das bei Malern 
seit Jahrhunderten angewendet wird, weil die 
Elastizität dieses Leims es möglich macht, 
große Papierbögen glatt aufzuziehen. Voisin 
koloriert die Kopien mit fluoreszierender 
Acrylfarbe und schafft so vibrierende Bilder 
von Robotern, Zulukriegern und Breakdancern. 
Der Maler beleuchtet seine Bilder gern mit ul- 
traviolettem Licht. Durch die fluoreszierende 
Farbe entstehen Effekte, die an einen Farb- 
bildschirm erinnern. 


Antiquierte Version 


Letztes Jahr „malte“ Voisin mit seinem Mac- 
intosh 30 Bilder. Er glaubt aber nicht, daß die 
Leistung von Rechner und Programm damit 
schon voll ausgenutzt ist. Über die Programm- 
entwickler spricht der Künstler mit Hochach- 
tung, weil sie sich völlig in seine Arbeit hinein- 
versetzt hätten und dadurch seine Bedürfnisse 
optimal berücksichtigt worden wären. Dabei 
ist Voisins MacPaint-Version eher antiquiert, 
viele Verfeinerungen der heutigen Programme 
sind noch gar nicht implementiert. 

Im Gegensatz zu vielen Kollegen schreckt 
Voisin die Idee der Computer-Kunst nicht ab. 
Für ihn ist die Maus ebenso wie der Pinsel ein 
Werkzeug, das mit Kopf und Hand bedient 
werden will. Der Maler ist der Überzeugung, 
daß die Computer-Kunst einmal den gleichen 
Stellenwert einnehmen wird wie beispiels- 
weise der Kupferstich. Der Unterschied liege 
nur darin, daß das Original auf einer Diskette 
gespeichert und nicht auf einer Kupferplatte 
eingraviert sei. Voisin erwartet eine neue Ge- 
neration von Medienkünstlern: Ihre Produkte 
würden einem breiten Publikum anstelle einer 
kleinen Sammlergemeinde zur Verfügung ste- 
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hen. Das französische Kultusministerium hat 
ihm inzwischen einen „Radiance“ zur Verfü- 
gung gestellt, einen Rechner mit mehr Spei- 
cher und Farbdrucker. Damit sind bereits Farb- 
drucke in limitierter Auflage hergestellt wor- 
den. Voisin freut sich jetzt auf den Farb-Macin- 
tosh, den er für kleinformatige Bilder in seinem 
Atelier einsetzen möchte. 

Der Künstler experimentiert intensiv mit Pro- 
grammen und Zusatzeinrichtungen. Trotzdem 
will er sich nicht sein Leben lang nur mit Mac- 
Paint beschäftigen. Voisin ist aber sicher, daß 
er ohne den Macintosh nicht mehr auskommen 
kann: „Ich brauche ihn, wie ich auch das Tele- 
fon oder Pinsel und Farbe brauche. Eine wun- 
derbare Maschine — eine Revolution.“ 


Der Gegensatz zwi- 
schen harten Linien, 
tiefschwarzen Gesich- 
tern und den weicheren 
Schattierungen des 
Rauches sind ein gutes 
Beispiel für den Ab- 
wechslungsreichtum, 
den das Malprogramm 
MacPaint ermöglicht. 


Dies sind Fotografien 
vom Bildschirm des Ra- 
diance-Rechners, den 
das französische Kul- 
tusministerium dem 
Künstler zur Verfügung 
gestellt hat. Voisin 
kann damit sehr sau- 
bere Farbausdrucke 
seiner am Bildschirm 
entworfenen Kunst- 
werke herstellen. 


Harte Bedingungen 


In der letzten Folge hatten wir die Multiplikation und Division des 
68000 beschrieben und dabei auch die BCD-Befehle für Addition und 
Subtraktion behandelt. Wir wenden uns nun den Logikbefehlen zu und 
untersuchen danach die Anweisungen für Verschiebung, Rotation und 


Programmverzweigung. 


ehen wir uns zunächst die Logikbefehle 

des 68000 an. Die Anweisung AND ver- 
knüpft den Quelloperanden durch ein logi- 
sches AND mit dem Zieloperanden, legt das 
Ergebnis im Ziel ab und setzt — falls nötig — 
die Bits N und Z. Es sind viele Adressierungs- 
arten möglich, doch die Operanden müssen 
Datenregister sein. Weiterhin sind Datenattri- 
bute zulässig. Wenn DO = 1010 1010 und DI = 
1111 0000, dann ist nach dem Befehl 

AND D1,DO 
das Datenattribut DO = 1010 0000. 

Unser Beispiel maskiert die niederwertigen 
vier Bits von DO aus, da die entsprechenden 
Bits von D1 auf O stehen. Die höherwertigen 
Bits erscheinen im Ziel, weil die Maskenbits 
dieser Positionen gesetzt sind. Der Befehl 
„ANDI“ kann den Quelloperand unmittelbar 
adressieren, dabei sind im Zieloperand daten- 
verändernde Modi möglich. Unser voriges Bei- 
spiel sieht mit ANDI so aus: 

ANDI #$F0,DO 
Neben OR steht ORI zur Verfügung, für das ex- 
klusive OR lassen sich EOR und EORI einset- 
zen, und auch das logische NOT gibt es. Diese 
Befehle funktionieren wie AND und sprechen 
auch die gleichen Bedingungscodes an. Die 
Adressierung einzelner Bits wird oft für die 
Steuerung von „Flag“-Bits verwandt. 

Für Datenoperanden, die aus einem einzel- 
nen Bit bestehen, bietet der 68000 vier Bit- 
anweisungen, die sich statt der Logikbefehle 
einsetzen lassen. Die Bitanweisungen testen 
den Status der angegebenen Bits, die entwe- 
der in einem Langwort (Datenregister) von 0 
bis 31 durchnumeriert sind oder sich in einem 
Speicherbyte befinden. Die Anweisungen set- 
zen je nach dem Status des Bits das Z-Bit des 
SR. Z ist damit ein umgekehrter Ein-Bit- 
Speicher des angegebenen Bits. Bei DO = 
XXXX XXXX XXX1 0000 (Binärformat — X ist O 
oder 1) testet 

BTST #4,DO 
das Bit vier und setzt 2 auf Null, wenn das ent- 
sprechende Bit nicht auf Null steht: 

BTST #3,DO 
setzt Z in diesem Fall auf Eins. Die anderen Be- 
dingungscodes werden nicht verändert. 

Folgende Befehle ändern das getestete Bit: 
BSET setzt das Bit nach dem Test 
BCLR löscht das Bit nach dem Test 


Wird bei Eintritt der Bedingung gesetzt, 
sonst gelöscht 


] Wird immer gelöscht 


Nicht angesprochen 


Wie Übertragsbit; wird nicht angesprochen, 
wenn Verschiebungszähler auf Null steht 


Wird gesetzt, wenn sich das MSB während des 
Ablaufs ändert 


Wird je nach letztem verschobenen Bit gesetzt; 
wenn der Verschiebungszähler auf Null steht, 
wird es auf Null gesetzt 


BCHG ändert das Bit nach dem Test 
Wenn Sie mit den obenstehenden zahlreichen 
Beispieldaten 

BCHG #4,DO 
ausführen und DO auf 1 gesetzt ist, erhalten Sie 
DO = XXXX XXXX XXX0 0000, wobei Z auf Null 
gesetzt wird und damit den Zustand vor der 
Änderung anzeigt. 

Beachten Sie, daß alle Befehle für das bit- 
weise Testen und Setzen nur aus einer Anwei- 
sung bestehen. Dies kann besonders bei 
Mehrplatzanwendungen wichtig sein, in denen 
ein Interrupt zwischen Testen und Setzen zu 
unvorhersehbaren Ergebnissen führen kann. 
Logikbefehle haben den Vorteil, daß Tests 
keine Abläufe auslösen und lassen sich daher 
problemlos für die Bitverarbeitung einsetzen. 

Sehen wir uns zunächst einmal an, was pas- 
siert, wenn ein Bitmuster nach links oder rechts 
verschoben wird. Wenn DO = 0000 0000 0000 
1000, dann erhalten wir bei einer dreifachen 
Rechtsverschiebung 0000 0000 0000 0001. Da 
der Inhalt von DO dabei durch acht (2°) geteilt 
wurde, entspricht die Rechtsverschiebung um 
eine Position einer Teilung durch Zwei. Umge- 
kehrt ist die Linksverschiebung dementspre- 
chend eine Multiplikation. 


Die logische Verschie- 
bung stellt je nach Ver- 
schiebungsrichtung 
Nullen in Bit 0 oder 15. 
Während LSL wird Bit 
V auf Null gesetzt, 
während nach LSR Bit 
N auf Null steht. Beide 
Abläufe stellen das 
letzte verschobene Bit 
inC und X. 
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Bei der arithmetischen 
Rechtsverschiebung 
(ASR) wird Bit 15 in Bit 
14 kopiert, der Inhalt 
von Bit 15 aber nicht 
verändert. Auf diese 
Weise bleibt das Vor- 
zeichenbit erhalten. Bit 
0 wird in Bit Cund X 
des Statusregisters ko- 
piert. Bei der Linksver- 
schiebung werden Nul- 
len in Bit 0 gestellt, und 
Bit V wird gesetzt, 
wenn sich der Inhalt 
von Bit 15 ändert. 


Die ROTATE-Befehle 
lassen den Operanden 
kreisen, indem sie bei 
ROR Bit 0 in Bit 15 stel- 
len und umgekehrt (bei 
ROL). Das „überge- 
stellte“ Bit wird dabei 
in das C-Bit des Status- 
registers kopiert. 
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Bei der Rechtsverschiebung haben wir vor- 
ausgesetzt, daß auf der linken Seite (bei der 
Linksverschiebung auf der rechten Seite) auto- 
matisch Nullen eingesetzt werden. Wenn das 
Vorzeichen der Zahl erhalten bleiben soll, muß 
dies bei einer Rechtsverschiebung berück- 
sichtigt werden. Bei DO = 1111 1111 1111 0000 
(dezimal —16) ergibt eine dreifache Rechtsver- 
schiebung DO = 1111 1111 1111 1110 (dezimal 
—2). In diesem Fall wurden links Einsen einge- 
setzt, um die negative Zahl zu erhalten. Im all- 
gemeinen setzt die Rechtsverschiebung Bits 
ein, die dem Vorzeichenbit (dem höchstwerti- 
gen Bit des Datenoperanden) entsprechen, 
während die Linksverschiebung Nullen in das 
niederwertige Bit des Wortes stellt. Verschie- 
bungen, die das Vorzeichen des Operanden 
beibehalten, heißen „arithmetische Verschie- 
bungen“, 

Der 68000 bietet die Befehle ASL (arithmeti- 
sche Linksverschiebung) und ASR (arithmeti- 


Die Befehle für Logik, 
Verschiebung und Rota- 
tion beeinflussen den 
Inhalt des Statusregi- 
sters. Die arithmetische 
Verschiebung unter- 
scheidet sich von der 
logischen nur durch 
den Gebrauch des 
V-Flags, das mögliche 
Veränderungen im Vor- 
zeichenbit des Operan- 
den anzeigt. 


sche Rechtsverschiebung). Wenn das Ziel ein 

Datenregister ist, können Sie bis zu acht Bits 

unmittelbar verschieben, bei einem Langwort 

wird ein anderes Datenregister als Zähler ein- 

gesetzt und so bis zu 31 Bits verschoben. So ist 
ASR #8.D0 

die größte Verschiebung, während 


ASL D1,DO 
DO um soviel Positionen nach links verschie- 
ben kann, wie DI] Stellen hat (d.h. bis zu 31). 
Speicherstellen lassen sich jedoch nur um 
eine Position verschieben. 

Das Bild zeigt, daß alle Bedingungscodes 
des SR angesprochen sind: C und X werden 
auf das letzte aus dem Operanden gescho- 
bene Bit gesetzt, V zeigt bei Linksverschiebun- 
gen die Veränderung des Vorzeichenbits an, 
während N und Z je nach Ergebnis gesetzt 
werden. 


MULT-Vorgänge 


Sie werden sich fragen, warum arithmetische 
Verschiebungen so wichtig sind, da der 68000 
doch ausreichend mit Multiplikation- und Divi- 
sionsbefehlen ausgerüstet ist. Der Grund ist 
die Ausführzeit. Ein MULT-Vorgang braucht 70 
Taktzyklen, während ASL oder ASR nur 6+2n 
Zyklen dauert (n ist die Zahl der Verschiebun- 
gen). Die Dauer einer arithmetischen Ver- 
schiebung reicht von acht Zyklen für die Ver- 
schiebung einer Position bis zu 68 Zyklen für 
alle 31 Positionen: Eine geringe Zahl von Ver- 
schiebungen ist daher weit schneller als Multi- 
plikations- oder Divisionsbefehle — im Extrem- 
fall ist eine einfache Rechtsverschiebung um 
das Neunzehnfache schneller als die Teilung 
durch 2. 

Es gibt aber auch die „logischen Verschie- 
bungen“ LSR und LSL, die das Vorzeichen des 


Datenoperanden nicht berücksichtigen und in 
den freigewordenen Stellen Nullen einsetzen. 
Auch hier gelten die Adreßbeschränkungen 
für arithmetische Verschiebungen. Das Bit V 
wird immer auf Null gesetzt. Logische Ver- 
schiebungen werden oft für das Setzen oder 
Testen von Datenoperanden eingesetzt, die 
kleinere Untergruppen oder Felder enthalten. 

Schließlich bietet der 68000 noch eine 
Gruppe von Rotationsbefehlen, die eigentlich 
Relikte aus einer Vergangenheit sind, in der 
die einzelnen Bits des Datenoperanden über 
die Rotation durch das Bedingungsflag gete- 
stet wurden. Im wesentlichen hat das breite 
Spektrum der Bitbefehle diese Aufgabe über- 
nommen, wobei die neuen Befehle die gleiche 
Zeit brauchen wie die alten. Wir wollen daher 
nur ein Beispiel für die Rotation anführen. ROR 


#3,D0O rotiert den Inhalt von DO um drei Positio- 
nen nach rechts, setzt das Bit C auf das letzte 
verschobene Bit und bringt das niederwertige 
Bit an die höchstwertige Stelle. 

Die Befehle zur Programmsteuerung legen 
die Ablaufreihenfolge der Anweisungen fest. 
So verändert die Gruppe der „bedingten Ver- 
zweigungen“ je nach Eintreten bestimmter Be- 
dingungen den normalen sequentiellen Be- 
fehlsfluß. Die „unbedingte Verzweigung" löst 
dagegen in jedem Fall eine Verzweigung im 
normalen Programmfluß aus. 

Eine unbedingte Verzweigung sieht norma- 
lerweise so aus: 

BRA NEULABEL 
Hier setzt sich der Befehlsfluß nach Ausfüh- 
rung von BRA von der Speicherstelle NEULA- 
BEL aus fort. Wenn der Distanzwert in einem 
vorzeichenbehafteten Acht-Bit-Wort unterge- 
bracht werden kann, läßt sich die gesamte An- 
weisung in einem Computerwort codieren. Die 
Hälfte des Wortes enthält dann den Op-code 
für BRA (hex 60), während das andere Byte 
den Distanzwert mit Vorzeichen angibt. Wenn 
der Distanzwert zu groß wird oder die Verzwei- 
gungsadresse noch nicht bekannt ist (der As- 
sembler kann sie nicht berechnen, da er nur 
einen Vorwärtsbezug erhalten hat), steht das 
Distanzbyte auf Null, während das nächste 
Wort den vollen Distanzwert im 16-Bit-Format 
mit Vorzeichen angibt. Wir sehen uns diesen 
Vorgang später genauer an. 

Für die meisten Situationen reicht BRA völlig 
aus. Manche Situationen — besonders berech- 
nete Verzweigungsadressen — brauchen je- 
doch einen flexibleren Befehl. Nehmen Sie an, 
Sie möchten auf eine Tabellenadresse ver- 
zweigen, deren Index sich in einem Register 
befindet (die Adressierungsart „indirekt mit 
Index und Distanzwert"). Da mit BRA diese Art 
der Adreßberechnung nicht möglich ist, muß 
hier der Sprungbefehl JMP verwandt werden, 
der die Verzweigungsadresse gegebenenfalls 
berechnen kann. 

Sehen wir uns die verschiedenen Spielarten 
der unbedingten Verzweigungen einmal an 
dem Programmbeispiel (‚Viele Verzweigun- 
gen') genauer an. 


„PC relativ“ 


Die Sprungbefehle dieses Listings zeigen die 
absolute Adressierung (vorwärts und rück- 
wärts) und die indirekte Adressierung mit In- 
dex und Distanzwert. Weitere Adressiermetho- 
den sind „einfach indirekt" — zum Beispiel 
(A2) — und „PC relativ". 

Die BRA-Befehle zeigen zunächst einen Di- 
stanzwert, der im Befehlswort enthalten ist, und 
dann zwei Anweisungen mit vollen Worterwei- 
terungen (obwohl für den Distanzwert auch ein 
Byte genügt hätte), Da dem Assembler die 
Adresse von FINISH noch nicht bekannt war, 
mußte er für den Distanzwert eine volle Erwei- 


terung einsetzen. Wenn Sie wissen, daß dieser 
Wert in ein vorzeichenbehaftetes Byte paßt, 
können Sie den Assembler mit dem Zusatz .S 
zwingen, die Kurzform zu nehmen. Unser Bei- 
spiel ließe sich daher auch kürzer als BRA.S 
FINISH schreiben. 

Die bedingten Verzweigungen lassen sich in 
drei Hauptgruppen unterteilen: 
@ Verzweigungen im Zweierkomplement 
@ Verzweigungen ohne Vorzeichen 
@ Schleifensteuerung 


Das Befehlsformat der Gruppen ist identisch: 

Bcc LABEL 
cc bezieht sich auf die getesteten Bedingungs- 
codes. Ist die Bedingung wahr, dann findet die 
Verzweigung auf LABEL statt, falls nicht, wird 
dann lediglich der nächste sequentielle Befehl 
angesprochen. 

Die Spalte „Wahr, wenn —" zeigt die arithme- 
tische Bedingung an, die als Ergebnis der Ver- 
gleichsbefehle CMP oder SUB entsteht. Bei 
der ersten Bedingungsgruppe der Tabelle 
(Verzweigungen im Zweierkomplement) wird 
das Bit V (Überlauf) in das logische Testen mit 
eingeschlossen. Dieses Merkmal bestimmt die 
Gruppenzugehörigkeit dieser Befehle und 
zeigt außerdem an, daß für die korrekte Aus- 
führung auch das Überlaufbit getestet werden 
muß. Die genauen logischen Bedingungen der 
Vezweigungen sollten Sie dem Anwender- 
handbuch von Motorola entnehmen. Eine BGE- 
Verzweigung testet beispielsweise, ob N=V. 
Der Sprung wird ausgelöst, wenn NOTN AND 
NOT V wahr ist (d.h. es existiert kein Überlauf, 
und die Zahl ist nicht negativ) oder N und V 
sind wahr (Überlauf und negative Zahl). 

Ein Beispiel: Wir wollen die beiden vorzei- 
chenbehafteten Zahlen DI und D2 miteinander 
vergleichen und auf GROESSER verzweigen, 
wenn D2 größer ist als Dl. Die Bedingung wird 
dabei mit einem Vergleichsbefehl getestet, auf 
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= 
© 


Der Befehl DBcc bietet 
dem Programmierer des 
68000 eine Fülle von 
Möglichkeiten auf ho- 
her Ebene. Das Ablauf- 
diagramm zeigt die 
Ausführung des Be- 
fehls. Beachten Sie, daß 
die Anweisung nicht 
nur ein Zählerregister 
dekrementiert, sondern 
auch eine Bedingung 
testet. Für eine feste 
Zahl von Wiederholun- 
gen (vergleichbar mit 
der FOR. ..NEXT- 
Schleife in BASIC) kön- 
nen Sie das Testen der 
Bedingung mit dem be- 
dingten FALSCH (DBF) 
abstellen. 
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den die bedingte Verzweigung BGT folgt: 
CMP D1,D2 * ergibt D2 — D1 
BGT D2GROESSER * verzweige auf 
D2GROESSER, 
* wenn nicht Null 
und nicht 
* negativ und kein 
Überlauf 


Die zweite Gruppe der bedingten Verzweigun- 
gen (in der Tabelle) arbeitet mit Zahlen ohne 
Vorzeichen und testet die Bedingungscodes 
auf einfachere Weise. So kann beispielsweise 
der Vergleich des Inhalts der Speicherstelle 
BETTY mit D1 unabhängig von der Überlaufbe- 
dingung ausgeführt werden: 


CMP BETTY,D1 * ergibt DI — BETTY 
BEQ GLEICH * verzweige auf GLEICH 
wenn Z=1 
Assemblerversion 


Weitere Beispiele der bedingten Verzweigung 
ergeben sich aus der Assemblercodierung von 
Schleifen. So sieht der Ablauf 
FOR |:=1TO5DO 
(Programmteil fünfmal ausführen) 
NEXT | 


in der Assemblerversion so aus: 
MOVEO #5,D7 * Schleifenzähler setzen 
LOOP (Programmteil fünfmal ausführen) 
SUBO #1,D7 * Zähler dekrementieren 
BNE LOOP * Wiederholen bis 
D7=0 


Mit „Quick“-Befehlen läßt sich die Schleife in 
nur drei Worten codieren. 


Die dritte Gruppe der bedingten Verzwei- 
gung bildet der Befehl DBcc, der dekremen- 
tiert und bei Eintritt der Bedingung auf cc ver- 
zweigt. Dieser Befehl ist eine Erweiterung des 
oben angeführten Schleifensteuermoduls, ent- 
hält in seinem Code aber bereits Dekremen- 
tierung und bedingte Verzweigung. DBcc äh- 
nelt dem PASCAL-ähnlichen Pseudo Code für 
eine REPEAT-Schleife: 

REPEAT 

(... Schleifeninhalt... .) 

UNTIL 

'C’ = wahr oder Dn = —1 


cc ist eine der Bedingungen (im zweiten Teil 
der Tabelle dargestellt) und Dn das Datenregi- 
ster mit dem Schleifenzähler. Das vorige Bei- 
spiel wird mit DBcc so codiert: 
MOVEO #5,D1 * Schleifenzähler setzen 
LOOP (Programmteil fünfmal ausführen) 
DEBO D1,LOOP * Ende, wenn das zuletzt 
* getestete 'cc' 0 ist 
* oder DI=1 
(6Durchläufe) 


Beachten Sie den Unterschied in den Endbe- 
dingungen und auch die Unterschiede zu nor- 
malen BEQ-Befehlen. Wenn kein bedingtes 
Testen nötig ist, dann läßt sich DBcc mit einem 
auf F (falsch) gesetzten cc für einfache FOR- 
Schleifen verwenden, beispielsweise: 
MOVEO #4,D3 
LOOP (.... Inhalt der FOR-Schleife ... .) 
DBF D3,LOOP 


Diese Version entspricht der ursprünglichen 
FOR-Schleife mit fünf Wiederholungen und 
belegt auch die gleiche Menge Speicher. 


Unter einer Bedingung 


Nächsten 
Befehl 
ausführen 


Test- 
bedingung 


FALSCH 


Register mit 
Dekrement- 
zähler 


Nächsten 
Befehl 


Register 
el ausführen 


FALSCH 


Verzweigung 
auf Label 


In Zellen gesperrt 


Nachdem wir die Grafik- und Formelaufbereitungs-Routinen 
abgeschlossen haben, kommen wir nun zu den Unterprogrammen zur 
Eingabe von Formeln und Daten in das Arbeitsblatt und zu deren 


Berechnung. 


er Programmteil, der die Eingabe von For- 

meln kontrolliert, liegt in den Zeilen 2000 
bis 2050. Der INPUT-Befehl übernimmt die For- 
meln und legt sie in D$ ab. Das Programm ko- 
piert die Eingabe anschließend in das Zei- 
chenfeld FS() und löscht den entsprechenden 
Eintrag im Feld PS$. 

Die Inhalte der Zellen Al bis AlS sind in 
FS(1) bis F$(15) gespeichert, die Zellen Bl bis 
Bl5 in FS(16) bis FS(30) und so weiter. Ein ein- 
zelnes Element in F$() kann daher jederzeit 
aus den Koordinaten des Cursors mit der For- 
mel (Y-1)*15+X ermittelt werden. 

Das Programm übernimmt die Daten zei- 
chenweise in Zeile 2120. Falls eine der Cursor- 
Tasten gedrückt wurde, wird die Routine abge- 
brochen und die bisher eingegebenen nume- 
rischen Daten in einer Feldvariablen (M(,)) ab- 
gelegt. Die Zeilen 2140 bis 2170 überprüfen, ob 
die gedrückte Taste numerisch war und legen 
dann das Zeichen in E$ ab. 

Die erste Routine arbeitet das Zeichenfeld 
FSO) und die entsprechenden Elemente in 
PS$() ab und übersetzt jede neu eingegebene 
Formel in UPN durch Aufruf der Subroutine bei 
4000. Wenn sich in der jeweiligen Zelle ein 
Eintrag befindet, wird die Kalkulationsroutine 
aufgerufen. 


Konditionsbeschreibung 


Die Kalkulationsroutine benutzt das UPN-Prüf- 
programm ab Zeile 4700, das die Elemente des 
bearbeitenden UPN-Ausdrucks in das Zei- 
chenfeld G$() legt. Diese Elemente sind ent- 
weder Operatoren (wie + und —) oder Operan- 
den (Al, B5,3 usw.). Die Kalkulationsroutine ar- 
beitet dann mit den Elementen des UPN-Aus- 
drucks unter Berücksichtigung der folgenden 
Konditionen: 

® Ist das Element eine Konstante, wird der 
Wert in die Feldvariable C() aufgenommen 
und seine Position in C() auf den Stapel ST() 
geschoben. 

® Ist das Element eine Zelladresse, wird der 
zugehörige Wert aus der Feldvariablen M(,) in 
CO) kopiert und die Position in C() auf den Sta- 
pel geschoben. 

© Ist das Element ein Operator, wird die Ope- 
ration mit den beiden letzten (oder im Falle 
eines negativen Vorzeichens mit dem letzten) 
auf den Stapel gebrachten Operanden ausge- 


führt. Der Stapel enthält nur die Positionen der 
Operanden in C(), und die Werte dienen uns 
lediglich zum Auffinden der richtigen Ele- 
mente in C(). Das Resultat wird in C() abge- 
legt, die beiden Operanden werden vom Sta- 
pel genommen, und die Position des Resulta- 
tes wird in C() auf den Stapel gelegt. 


BASIC-Dialekte 


Schneider CPC: 
Beachten Sie folgende Änderungen gegen- 
über der Commodore-64-Version: 


2010 LOCATE 1,22 

2020 PRINT “NEW FORMULA 

2103 LOCATE 1,22 

2120 AS="":WHILE AS="":AS=INKEYS:WEND 

2130 IF AS=CHR$(243)0R A$=CHRS$(242) OR 
AS=CHRS$(241) OR A$=CHR$(240) THEN 
2250 

2180 LOCATE H(X+1-H1) -1,V(Y-V1+1) 

2190 PRINT CHRS(24) ;SPACES((5) ;CHRS(11) 

2200 LOCATE H(X+1-H1) +4-LEN(ES), V(Y-V1+1): 
PRINT ES;CHRS(24) 

2220 LOCATE 1,22 

2305 LOCATE 1,22 

2315 Q$=CHRS$ (J+64) +MIDS (STRS$(l), 2,2): 
LOCATE 11:PRINT “CELL:”;0$;* ” 


";CHRS(11) 


Acorn B: 
Beachten Sie folgende Änderungen gegen- 
über der Commodore-64-Version: 


2010 PRINT TAB (0,22); 

2103 PRINT TAB (0,22); 

2120 A$=get$ 

2130 IF AS=CHR$(136) OR AS=CHRS$(137) OR 
AS$=CHR(138) OR AS=CHR$(139) THEN 2250 

2180 COLOUR 2:COLOUR 129 

2190 PRINT TAB(H(X+1-H1) -1,V(Y-V1+H1)-1),° ” 

2200 PRINT TAB(H(X+1-H1) +4-LEN(ES), 
V(Y-V1+1)-1);ES 

2205 COLOUR 1:C0OLOUR 128 

2220 PRINT TAB(0,22); 

2230 I$=GET$ 

2240 PRINT TAB(0,22); 

2305 PRINT TAB(0,22); 

2315 QS=CHRS (J+64) +MIDS(STRS(I) ‚2,2):PRINT 
TAB (0,0);“CELL:” ;0$;* ” 
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Eingabe- und Kalkulationsroutinen 


Commodore 64: 


1170 IF A$>="0" AND A$=<"?" 
100:REM ENTER NUMERIC DATA 
2000 REM *** INPUT FORMULA ROUTINE #** 

2010 GOSUB 1950:REM MOVE CURSOR TO INPUT 
LINE 

2020 PRINT 


THEN GOSUB Z 


"NEW FORMULA: 

BiclR 

2030 INPUT "NEW FORMULA:";D$ 

2040 LET F&((Y-1)#15+Xd=D$: LET PS$(CY-1) 
#15+X)="" 

2050 GOSUB 1900: :RETURN 

2100 REM ***=* ENTER DATA IN CELL **x*x*+ 
2103 GOSUB 19S50:REM MOVE CURSOR TO INFUT 


LINE 
2104 PRINT " ENTERING -DATA 
2105 LET P=0:LET E$="" 
2110 IF A$<>"" THEN 2150 
2120 GET A$:IF A$="" THEN 2120 
2130 IF A$=CHR$(29) OR A$=CHR$(157) OR A 
$=CHR$(17) OR A$=CHR$(145) THEN 2250 
2135 IF A$=" " THEN 2250 
2140 IF A$="." THEN 2160 
2150 IF A$<"0" OR A$>"9" THEN 2120 
2160 LET P=P+i:1IF P>5 THEN 2220 
2170 LET E$=E$+A$ 
2180 PRINT CO$;:FOR C=1 TO V(Y+1-H1)-1:P 
RINT CD$; :NEXT C 
2190 PRINT TABCH(IX+1-H1)-1);CHR$(18) 5," 
";cu$ 


2200 PRINT TABCH(X+1-H1)+4-LEN(E$)) ;CHR$ 
(18) ;E$ 

2210 GOTO 2120 

2220 GOSUB 1950:REM MOVE CURSOR TO INPUT 
LINE 

2225 PRINT " ERROR - INPUT IGNORED" 

2230 GET I$:IF I$="" THEN 2230 

2240 PRINT CO$;:FOR K=1 TO 22:PRINT CDs; 
ıNEXT K 

2245 PRINT " 


":G0TO 2120 
2250 LET M(Y,X)=VALSES$) :GOSUB 1900:RETUR 


N 

2300 REM *%***** CALCULATE THE SHEET 
**% 

2305 GOSUB 1950 :REM MOVE CURSOR TO INPUT 
LINE 


*x#% 


Sinclair Spectrum: 


2306 PRINT " CALCULATING - 
WAIT " 

2310 FOR J=1 TO 15:FOR I=1 TO 15 
2315 Q$=CHR$(J+64) +MID$CSTR$CI),2,2):PRI 
NT CO$;CD$; "CELL:";Q$;" 

2320 LET P$=PS$((J-1)*15+1) 

2325 IF P$<>"" THEN GOSUB 4700:G0SUB 237 
0:650T0 2350 


PLEASE 


2330 LET C$=F$((J-1)*15+1) 

2335 IF C$="" THEN 2350 

2340 GOSUB 4000:G0SUB 2370 :REM DECO 
DE FORMULA 

2350 NEXT 1,J:G0SUB 1700 :RETURN 

2370 REM **#** EVALUATE FORMULA x###%*%#% 
2375 SP=0:FOR kK=1 TOD 20:ST(SP)=0:NEXT K 
2380 FOR K=1 TO CP 

2390 LET T$=6G#(K) 

2400 IF THEN 2500 

2405 IF THEN 2510 

2410 IF THEN 2520 

2415 IF THEN 2530 

2420 IF THEN 2540 

2425 IF THEN 255 

2430 IF T$="" THEN 2450 


2432 TE$=MID${T$,1,1) 

2435 IF <TE$>="0" AND TE${="9").OR TES=" 
." THEN CiK)=VAL{TEI:GOTO 2445 

2440 LET C(CK)=M(ASC{MIDSCT$,1,193-84 VAL 
(MID$(T$,2,2))) 

2445 SP=SP+1:STCSP)=K 

2450 NEXT K 

2460 LET M({J,I>=C(CK-1) :RETURN 

2500 CCK)=CCSTCSP-1II+CESTCSP)) :STESP)I=0 
ıSP=SP-1:ST{SP)=K:GOTO 2450 

2510 CCKI=CCSTESP-1))-C(ST{SP)) :STCSP)=0 
ıSP=SP-1:ST(SP)=K:GOTO 2450 

2520 CCK)=CLSTCSP-1I)I#ÜLCSTCSP)):STCSF)=0 
:SP=SP-1:ST(SP)=K:GOTO 2450 

2530 C{K)=C(ST(SP-1YI/CLSTCSP)):STISP)=0 
ıSP=SP-1:ST(SP)=K:GOTO 2450 

2540 CCK)=CCSTESP-1))°CCSTCSPY):STISPI=0 
ıSP=SP-1:ST(SP)=K:GOTO 2450 

2550 CCK)=0-CCST(CSP)):STCSP)=K:GOTO 2450 
3010 DIM H(5) ,V(8),ST(20),ST$(20),E$(20) 
‚6%(20),C(20) 


IF ITs=Ur THE 2405 IF T$(1)="-" THEN GO TO 2510 
ZÜDO>REM saRHRRRERER EHE HERE Er 2410 IF T$(1)="*" THEN GO TO 2320 
2001 REM * INPUT FORMULAE * nn 2415 IF T$c1)="/" THEN GO TO 2530 
ZONZ REM KaxKsHcuR HEHE en a | 2420 IF T$(1)=""" THEN 60 TO 2540 
2010 PRINT AT 18,0;" ENTER LET MiYS)=VAL <B$): GO SUB 2425 IF T$(1)="&" THEN GO TO 2950 
NEW FORMULA v 2430 IF T$(1)="" THEN GO TO 2450 
2020 INPUT LINE D$ ETUFN 2432 LET U$=T$(1) 
2030 LET Ft er-1)#15+X,1 TOT LEN BE suruRuHe nennen 2435 IF (U$>="0" AND U$<="?P") OR 
Dt)=D$: LET H£C(Y-1)#15+X,1 TO ) i ER = U$="." THEN LET CiK)=VAL (T$): 
zen ze** GO TO 2445 
2050 GO SUB 1700 LEULA 2440 LET C(K)=MCCODE <(T#$( TO 19) 
2050 RETURN -64 ,VAL (T$(2 TO ))) 
2100 REM ssrHnnnu RR HEHE FOR Je ro Ta: For 1-1 TU TS 2445 LET SP=SP+1: LET S(SP)=K 
2101 REM * ENTER DATA IN CELL * 2315 PRINT AT 0,0; "CELL:";CHR$ ( 2450 NEXT K 
Z10OZ REM Kaas nRRRn HEHE J+54);STR$ (II;" " 2460 LET M(J,I>=CCK-1): RETURN 
2105 PRINT AT 18,0;" ENTERI 2320 LET P$=H$((J-1)%*15+1,1 TO ) 2500 LET CCK)I=CCSCSP-1)I+LCSCSP) 
NG - DATA W 2325 IF P$(1)<>" " THEN GO SUB EIS LET SCSPI=OI LET SP=SP-17 LET 
2110 LET P=0: LET B$=*"" 2355: GO SUB 4700: GO SUB 2370: S(SP)=K: GO TO 2450 
2120 LET A$=INKEY*: IF A$="" THE 60 TO 2350 2510 LET CCKI=CESCSP-193-CCSCSP) 


N >60’ T0 21:20 


2130 IF A$=CHR$ (13) THEN 60 8 
UB 1850: GO TO 2250 

2140 IF A$="." THEN 60 TO 2160 
z150 IF A$£"0" OR A$>"?" THEN G 
TE 2120 

2180 LET P=P+1: IF PS THEN 60 
To 2220 


Z170 LET Et=B#t+A$ 

Z180 PRINT AT VCY+1-V13 ,HCX+1-Hi 
ar ie 

Z2170 FRINT AT YEY+l-VU13 ,HIX+1-Hl 
»+5-LEN B$;B$ 
2210760 TO. 2120 

Z22U ERINT At 18,0%” 
INPLIT IGNORED „ 


ERROR - 
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2330 LET C$=F$((J-1)*15+1,1 TO ) 
2335 IF CsC1)=" * THEN 6010 23:50 
2340 50 SUB 4000: GO SUB 2370 

2350 NEXT I: NEXT J: GO SUB 1700 

: RETURN 

2355 FOR Z=1 TO LEN P$: 
THEN GO TO 2357 
2354 NEXT Z 

2357 LET P$=P$(1 TO Z-1): RETURN 
2370 REM XRaHaacaEReerer 
2371 REM * DECODE FORMULA * 
2372 REM XresRasascr a r 
2375 LET SP=0: DIM S<20) 

2380 FOR K=1 TO CP 
2390 LET T$=G6$CK) 
2900 IF T$(1)="+" 


TEIR$CZ? 


THEN 60 TO 2500 


%: LET SCSPI=0: LET SP=SP-1ı 
S(SP)=K: GO TO 2450 

2520 LET CCK)=C(S{SP-1)I*CCSCSP) 
>: LET S(SP)=0: LET SP=SP-1: LET 
S(SP)=K: GO TO 2450 

2530 LET C<K)=CCSCSP-1I9/CKSCSP) 


LET 


a LET SESEI=SURE EET SP=SSRZI N EET 
S(SP)=K: GO TO 2450 
2540 LET CCK)=61SCSP-13)°CESCSP) 
IE LET SC SPEI=03 "LET ISE=SSPEis LET 
S{SP)=K: GO TO 2450 
2550 LET C<K}=0-C(StSP}): LET SC 


SP)=K: GO TO 2450 
3010>DIM H(4):DIM V(7):DIM SC20) 
:DIM S$(20,5):DIM E$(20,5):DIM G 
520,5) :DIM C(20) 


Rank und schlank 


Diese Folge aus der Reihe Textkompressionen enthält das 
Assembler-Kompressionsprogramm für den 6502-Prozessor und ein 
BASIC-Ladeprogramm für die Z80-Version. 


++++ 


*=EL000 


MASK 


TSECHT 


START 


HIEHAF 


GOTFOR 
REIOIM CP 
BEC 
LOoA 
ST 
LEA 
JSF 
LOK 
BEL 
DEG 
LDr 
LDA 
STA 


RTS 


NODET 


EADCHR LOA 


STA 


OUTFUT #=*+ 
INPUT #=*#t+: 
STATUS #=#+l 


LEH *=#+| 
SUTÜFF #=#+1 
TOECNT #=#+1 


TEMP *#=#+l1 


IHFUT 
ZFTRI 
IHFUT+1 
ZPTRI FI 
ÖUTFUT 
BETRE 
SUTFUT+1 
ErTRZ2+I 
#l 
ÖUTÜOFF 
Hu 
KZPTRL N 
LEH 
#259 


MASH 


ZPTRLF,N 
CHECK 
EADCHR 
TOHEHN 
GOTTOE 
FÜURET 
GÖTFOR 
EIGHTE 


#Ü 
KIRTHIE 


MRTHIE 


LEH 
MEHAF 
HU 
STATUS 
#2 
WETHIE 
MASE 
MODEL 
ÖLTÜFF 
#ü 
GULTOFF 


CZPTR2I ‚V 


#255 


STATUS 


Kompressionsprogramm für den 6502 
s502 TEXT COMFRESSION 


er GOTTOK 


‚u FAGE 
‚0 AFGE 
SLRDIEEL IT 
:UTTEITN 


IHNFUT FÜOIHTER 
OUTFUT FOINTER 
TAELE FÜINTER 
TAELE FÜOINTER 
utt+tt+ 


TOKEN 


START OF 0#P 
START UF IF 
; STATUS EYTE 
ıHMIEELE MASE 

ı INFUT STRING 
:QUTPUT OFFSET 
:TOKEN COUMTER 
TABLE COUNTER 
SAVE STÄAFT OF 0.-P 


STRING 
STREIMG 


LEN STORE 
STORE 


STRING 
;SET 


UF 1/P POINTER 


SET UP O/F FOINTER 


TORI 
‘EN IT OP 
SLHT Dar 


OFFSET 
OFFSET 
:STORE LENSTH 1#FP STRING 
:SET UP NIBBLE MASt 


:GET NEXT I/P 
{WALID? 


CHAR 


ı TOKEN? 

TOK2 
;FOUR BIT CODE? 
!EIGHT BIT 
SAVE VALLE 


CODE? 


SEND Düa0n CODE a u) 


SEND 8 BIT CODE 


‚MÜRE I1-“P CHARS? 
‚50 GET THEM 


:0 STATUS=OK 
:ENDb OF TEXT MARK 

NEXTOK 
:IFITE OP LENGTH 


SEND BAD STATUS 


RTS 

PHA 

LDA #1 

JSR WRTNIE 
PLA ' 
JSR WRTNIB 
JMPF REJOIN 


‚SEND 0001 CODE 


AND TOKEN CODE 


SUBROUTINES +++++ 


PHA {SAVE CURRENT CHAR 
TYA 

PHA SAND 1/P OFFSET 
STY TEMP 

LDA ZPTRI 

cLc 

ADC TEMP ;CALC ZPTR3 TO 

STA ZPTR3 


LDA ZPTRI+1 
ADC #0 

STA ZPTR3+1 
LDA #<TOKTAB 
STA ZPTRA4 
LDA #>TOKTAB 
STA ZPTRA+1 
LDA #0 

STA TOKCNT 


;POINT AT 
;1#P CHAR 


CURRENT 


;SET ZPTR4 
;TO POINT TO 
:TOKEN TABLE 


;IMIT TOKEN COUNTER 


LOY #0 

LDA GZFTRI) N :GET LENGTH NEXT TOKEN 
FHA ‚STORE IT 

TAX 

BEQ NOTFND ‚END OF TABLE 

LDA ZPTR4 

GLEG 

ADC #l : INC ZPTRA 

STAa ZPTR4 :ZFTR3 & ZFTRA 

LDA ZPTR4+1 NO BOTH AT 


ADC #0 

STA ZFTR4+1 
LDA (ZPTR3) ,Y 
CMF CZPTRI: 5) 
ENE MEXTÜH 
IHN 

DEX 

BENE TÜKZ 
KEH MATCHEOD 
FLA 
FLA 
DET 
SIT 
CLT 
ADC 
Tar 
FLA 
LDA TOECHT 

LEX #0 SET Zeil 
RTS 


ıTEXT STARTS 


; COMPARE 
;NO MATCH GET NEXT TOKEN 
sCONT TILL 

END TOKEN WORD 


++ 
; CLEAR STACK 


TEMP 


TEMF :CALC NEW IP 


:PUT IT IN Y 


üOrFSET 


FLA 

STAa TEMP 
LbA ZFTR4 
GEE 

ADC TEMP 
STA ZPTR4 
LDA ZPTR4+1 


;GET LENGTH TOKEN 


;ADJUST ZPTRA 
;TO POINT AT 
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Der Einsatz von Tokens 
sowie die Darstellung 
der häufigsten Buchsta- 
ben im Vier-Bit-Code 
ermöglicht eine Verkür- 
zung des Originaltextes 
auf die Hälfte. In die- 
sem Beispiel wird ein 


_ 


BE: 


ADC #0 
STA ZFTRY4+H1 
INC TOKCHT 
’ TOK1 
NOTFHOD 


FOURBT 
* TEMP 
H{TAB4ET 
ZPTR3 
#>TAB4BT 


TBSCAN 
EIGHTE 


H<TABSET 
ZPTR3 
#>TABSBT 
ZPTR3+1 


TBSCAN ir Hl 

TBSCENZ CMP 
BEU TESCNI 
INY 
CPY #1% 
ENE TBSCNZ 
ERSSSTEENE 
LDX #255 
RTS 

TBSCHI TYä 
LBY TEMP 
LExX #0 
RTS 


CMF#° 
BED RETURN 
CMPAR°,“ 
BEG RETURN 
EMPEH=. 


2250 


KarTRs2 


Acht-Buchstaben-String 
auf vier Bytes kompri- 
miert. Beachten Sie die 
Vier-Bit-Codes als Ein- 
leitung eines Token- 
Wortes und zum 
Bezeichnen des 
Stringendes. 


3 4 


‚NEXT TOKEN 


;DISCARD 


;RESTORE 1/P POINTER 


;RESTORE IP CHAR 
Z=0=FÄAILURE 


ZP CHAR 
+P OFFSET 


£/P CHAR BACK 


“P CHAR 
ZPDEESET 


‚GET 1#F CHAR BACK 
‚FOUND IT! 
;LOOK FÜR TAB END 


;RESTORE 1/P OFFSET 
;Z=0=FAILURE 


‚PUT TARUAL IN A 


;2=1=SUCCESS 


RETURN 


C NOGOOEC 


#+5E 
NOGDOC 


RETUFH 


h 


JOGOOO 


WRTNIE 


% BUTOFE 
+ MASE 


- DUTOFF 
Y TEMP 
4255 


A MASK 


Se NIEELE 
;SAVE I/P OFFSET 


;<>0 MEANS LEFT-HAHD 


‚Abb NEL TO OLD 
;REPLÄACE IT 


;RESTORE I/P OFFSET 


‚RESET MASK FOR NEXT 


s++++ MOST COMMON LETTERS ++++ 


TAE4ET 


Ent 
Br U 
BIT 0 
Bit 
Bert 
.BYT 
EoT 
„ET 
Bi 
:ErT 
„Bert 
:ETT 
.BNT 
.BYT 
BYT 
.BYT 


nivozaroTaor m 


Irrrrt LESSTEIMMONTEETTERS +++# 


TABSBT '.BYT °C’ 


.BXT Me 
Sa 
SB 
.BrT 
BIT 
Aha) 
Bil: 
‚BIT 
BIT 
:BYT 
Br 
BT: 
Br 
BT: 
«BIT 
ı++++ TOKEN TABLE ++++ 


TOKTAB .EYT 3,°THE‘ 


»BYT 4,’THIS* 


„BYT 


ar 2 


NBVITE 2,2697 
.BYT 3,’FOR’ 
BY 2, 20N? 
"Bi 2,2710° 


[u 


18 MEMORY 29999 
28 FÜR n=30888 TO 38648 

38 READ p: POKE n,p: c=(c+p) 

48 NEXT n 

58 IF cX?64282 THEN PRINT " 

Checksum error..." 

68 STOP 

188 DATA 24,7,70,168,182,158,6,255,8,42,58 
‚117,126,58,56,117 

118 DATA 35,237,91,52,147,213,19,237,83,52 
‚117,62,255,58,59,117 

120 DATA 126,265,253,117,32,57,285,162,117 
‚48,59,265,223,117,48 

138 DATA 18,265,232,117,245,62,8,285,22, 
118,241 ,205,22,118,35 

148 DATA 58,56,117,61,50,56,117,167,32,216 
‚8,54,117,62,2,285 

158 DATA 22,118,235,269,58,55,117,167,48,1 
‚43,167,237,82,125,18 

168 DATA 281,289,62,255,58,54,117,281,245, 
62,1,285,22,118,24i 

170 DATA 205,22,118,24,203,229,235,33,2, 
119 ,58,56,117,79,6,15 

188 DATA 126,167,46,42,213,229,35,197,71, 
26,196,32,21,35,19,5 h 

198 DATA 32,13,121,58,56,117,195,225,225, 
225,235,43,175,128,201 

288 DATA 13,32,231,193,5,225,126,95,22,8, 
35,25,289,24,210,225 

218 DATA 126,183,281,229,33,226,118,285, 
241,117,225,281,229,33 

228 DATA 242,118,285,241,117,225,281,6,15, 
198,48,5,35,16,258,183 

238 DATA 281,120,261,254,32,288,254,44,288 
‚294,46,288 ,254,69,06 

248 DATA 8,254,91,48,4,79,175,121,201,62, 
255,167,261,79,58,55 

258 DATA 117,237,91,52,117,167,32,14,26, 
177,18,19,237,83,52,117 

268 DATA 62,255,98,59,117,281,121,263,39, 
283,39,263,39,283,39 

278 DATA 18,175,58,59,117,201,42,58,117,35 
‚34,58,117,237,91,52 

288 DATA 117,213,62,255,98,55,117,265,185, 
118,254,2,282,129,118 

298 DATA 218,153,118,167,202,139,118,285, 
185,118,205,118,118,71 

386 DATA 124,35,285,174,118,16,249,24,225, 
33,2,119,71,62,15,144 


BASIC-Ladeprogramm für Z80-Rechner 


318 DATA 71,4,126,35,5,288,95,22,8,25,24, 
248,42,52,117,209,187 

328 DATA 237,82,125,18,281,285,185,118,33, 
242,118,285,164,118,285 

338 DATA 174,118,24,182,33,226,118,205,184 
‚118,285, 174,118,24,171 

340 DATA 95,62,15,147,95,22,8,25,126,281, 
237,91,52,117,19,18 

358 DATA 237,83,52,117,281,58,55,117,42,58 
‚117,167,126,32, 14,238 

368 DATA 15,35,34,58,117,79,62,255,58,55, 
117,121 ,281,283,47,283 

378 DATA 47,283,47,283,47,238,15,79,175,58 
‚55,117,121,281 ,32,69 

388 DATA 84,65,79,78,82,73,83,72,88,76,78, 
8,8,8,67,77,85,71 

398 DATA 89,88,87,66,86,75,88,74,81,98,44, 
46,3,84,72,69,4,84 

408 DATA 72,73,83,4,84,72,65,84,2,73,78,3, 
89 ,79,85,2,77,69 
418 DATA 3,87,65,83,2,72,89,3,83,72,69,4, 
84,72,69,89 ,2,79,78 

428 DATA 2,73,84,2,73,83,3,78,79,82,2,79, 
78,2,84,79,8,285,167 

430 DATA 126,32,14,238,15,35,34,58,117,79, 
62,255,58,55,117,121 

448 DATA 281,283,47,283,47,203,47,283,47, 
236 ,15,79,175,58,55,117 

458 DATA 121,281 ,32,89,84,65,79,78,82,73, 
83,72,68,76,78,8,8 

468 DATA 8,67,77,85,71,89,88,87,86,86,75, 
88,74,81,98,44,46,3 

478 DATA 84,72,69,4,84,72,73,83,4,84,72,65 
‚84,2,73,78,5,59 

480 DATA 79,85,2,77,9,3,87,65,83,2,72,89, 
3,83,72,69,4,84,72 

498 DATA 69,89,2,79,78,2,73,8,8 
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Es gibt eine Menge 
Unix-Literatur, von dik- 
ken Wälzern bis hin zu 
knappen Einführungen. 
Der Unix-Einsteiger ist 
sehr gut mit dem locker 
geschriebenen Text 
‚The Unix Environment‘ 
von A.N. Walker be- 
dient (demnächst unter 
dem Titel ‚Die Unix- 
Welt‘ auch in deutscher 
Übersetzung beim Carl 
Hanser Verlag erhält- 
lich, München/Wien). 
Darin werden die wich- 
tigsten Aspekte des 
Unix-Systems sowie ty- 
pische Hardware-Konfi- 
gurationen und die Sy- 
stemorganisation be- 
handelt. 

Das Buch ‚Real World 
Unix‘ von John Halamka 
ist praktisch orientiert 
und allen zu empfehlen, 
die den Umgang mit 
Unix in der kürzesten 
Zeit lernen wollen. 
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Jedem das Seine 


Da sich bei Unix die Benutzerschnittstelle nach Wunsch umdefinieren 
läßt und die Informationsströme freizügig zu dirigieren sind, kann 
sich jeder das System auf seine Bedürfnisse zuschneiden - 


dazu einige Beispiele. 


B: den meisten Betriebssystemen ist zwar 
auch eine begrenzte Anpassung an die 
spezifischen Anforderungen des Benutzers 
vorgesehen; so gibt es die Möglichkeit, einen 
Satz von Kommandos als Block aufzurufen 
(etwa mit Hilfe der CP/M-SUBMIT- oder der 
MS-DOS.BAT-Dateien), oder bestimmte Routi- 
nen bei Inbetriebnahme des Systems automa- 
tisch zu starten. Die Möglichkeiten von Unix 
gehen aber weit darüber hinaus. 

Unix verfügt mit der „Shell Script“ über eine 
eigenständige Programmiersprache für die 
Gestaltung von Ein/Ausgabe-, Such- und Ite- 
rationsprozeduren. In Verbindung mit dem Pi- 
peline-Verfahren und den Umleitungsoperato- 
ren lassen sich damit viele Aufgaben bewälti- 
gen, ohne auf eine konventionelle Program- 
miersprache zurückgreifen zu müssen. 

Die ‚Shell‘ entspricht dem Kommandointer- 
preter anderer Systeme und kann vom Benut- 
zer vollständig umdefiniert werden. Daraus 
folgt, daß Systeme, die auf der gleichen Unix- 
Version beruhen, äußerlich sehr verschieden 
aussehen können. Dieser Artikelreihe wurde 
die Berkeley-Fassung 4.2 mit der sog. „C- 


FERNER 


IN 


‚N.WALKER 


Pr 2 


Shell“ zugrundegelegt, die sich an der Spra- 
che C orientiert. 

Für die Systemanpassung stehen zunächst 
ein paar Befehle zur Verfügung, die auf die 
Programmierumgebung Einfluß nehmen. Wie 
bereits erwähnt, wird der Zugriff auf eine Datei 
oder Directory für drei Benutzertypen getrennt 
geregelt: für den Anwender selbst (u=user), 
für seine Gruppe (g=group) und für alle ande- 
ren (o=others). Jede Benutzerkategorie erhält 
für die einzelnen Dateien oder Directories in- 
dividuelle Zugriffsrechte, die beim Auflisten 
der Directory im Langformat (über 1s -1) als 
drei ‚rwx'-Sätze erscheinen — ‚r' bedeutet Frei- 
gabe für Lesen (read), ‚w‘ für Schreiben 
(write), ‚x für Ausführen (execute). Wo die ent- 
sprechende Zugriffserlaubnis nicht erteilt ist, 
steht ein Strich. 

Die Benutzerkennungen sind mit dem Be- 
fehl ‚chmod' änderbar; er hat das Format 


chmod Kategorie[+ 


bzw. Directory 
Dabei bewirkt 'r die Erteilung und ‚—' die Lö- 


schung der Erlaubnis. Um für den Benutzer 

und für seine Gruppe das Schreiben in der Da- 

tei „Adressen“ freizugeben, tippen Sie ein 
chmod ug+w adressen 

Dabei können auch mehrere Änderungen auf 

einmal (mit Komma statt Leerraum als Trenn- 

zeichen) angegeben werden. 

Wenn ein neues Terminal eingerichtet wer- 
den soll, sind zunächst die Betriebsparameter 
zu setzen. Die meisten Unix-Systeme enthalten 
bereits die Treibertabellen für alle gängigen 
Terminaltypen, und Sie brauchen nur den ent- 
sprechenden ‚set environ‘-Befehl (Umge- 
bungsdefinition) zu geben: 

setenv TERM Terminaltyp 
Es ist im allgemeinen nicht erforderlich, Soft- 
warepakete für eine bestimmte Terminal-Kon- 
figuration auszulegen; zumindest theoretisch 
arbeitet ein und dieselbe Programmfassung 
unter Unix auf jeder Anlage. 

Für ungebräuchliche Terminals und für spe- 
zielle Zwecke lassen sich die Parameter mit 
‚stty' aber auch einzeln setzen. Der Befehl 

stty everything 
liefert zunächst eine Liste aller aktuellen Ein- 
stellungen, 

stty all 
dagegen ein verkürztes Verzeichnis mit den 
wichtigsten Werten. Die Einstellungen für die 
einzelnen Terminalfunktionen sind dann neu 


‚Erlaubnis Datei 


Maßarbeit 


Berkeley 4.2 Vax/Unix (infsc3) 
Type (Ctri-D) to disconnect 


login: com-mec 

Password: 

You are a Normal user (class 3) 

Jobs : 15 Superiors :4 Maximum : 21 

Last Login: Wed Nov 13 15:05:36 on ttyn08 

Hella nice to see yau! (Dies ist meine User-Meldung) 

&cat .login (Protokoll der .login-Datei) 

setenv TERM tvi910+ (Terminal-Einrichtung) 

stty erase äH als Löschsymbol erlaubt Löschen mit 
Rück- statt Delete-Taste) 

echa Hello nice to see you (Begrüßungstext) 


cat .cshre 

setenv EDITOR /usr/local/emacs 

setenv NAME 'Mike Curtis’ 

set path=(. /usr/local/m2 /usr/local /usr/ucb /usr/bin /bin /usr/games ) 


(Pfadnamen, anhand derer die zu einem Kommando gehörige Rou- 
tine gesucht wird; auch auf Programme außerhalb der aktuellen Di- 
rectory ist auf diese Weise ein unmittelbarer Zugriff möglich) 


set histary=25 (Shell merkt sich jeweils die letzten 
25 Kommandos) 
(Datei-Endzeichen "D=end of file unter- 


bindet versehentliches Ausloggen) 


set ignnoreeof 
alias h history 
alias ty more 


echo this is a list of mı files 

/bin/ls (Erstellen eines neuen Is-Befehls mit 

Zmv temp Is Kopfzeilenausgabe im File ‚temp‘) 
(Umbennen von ‚temp‘ in ‚Is‘) 


<chmod u+x Is (Neues Is-File als Kommandodatei aus- 


führbar, sonst nur Aufruf über sh<(Is) 


z1s (Test des neuen Is-Befehls) 
this is a list of my files 


15 Isfile mike rec.c receive rx.p transmit 


Zhistory (Auflistung der bisher erteilten Befehle‘ 
ı dir 
2 cat>!temp 
mv temp Is 
chmod u+x Is 
Is 
history 


215 (Wiederholungsaufruf des 5.Befehls) 


Is (Bestätigung des Kommandos) 
this is a list of my files 


ls Isfile mike rec.c rewceive rx.p transmit 


%stiy everything 

new tty, speed 1200 baud 
even odd -raw -n] echo -Icase -tandem -tabs -cbreak ff 
-ertbs -erterase -crtkill -ctlecho -prterase -tostop 
-tilde -flusho -mdmbuf -litout -nohang 

-pendin -decctig -ngflsh 

erase kill werase rprnt flush Inext susp intr quit stop eof 
“H uw "R 0 Yy WIN L 9°S20D 


(Auflisten aller Terminal-Parameter) 


alias dir Is 


listen einer Directory) 


(Umbenennung von Unix-Befehlen, z. B. 
Verwendung von ‚dir‘ statt ‚Is‘ zum Aus- <stity all 


new tty, speed 1200 baud; -tabs ff1 


%dir (Ausprobieren der Wirkung von ‚dir‘) 


lsfile mike rec.c receive rx.p transmit 


(cat ohne Nennung einer Eingabedatei, 
verkettet die Tastatur mit dem neuen File 


Zcat > ! temp 


erase kill werase rprnt flush Inext susp intr quit stop eof 
“H ER "R “Do Vv ZI CE 


‚temp‘, bis "D-EOF eingegeben wird) Tlogout 


definierbar, zum Beispiel: 

stty Funktion Tastenbelegung 
Ein anderer nützlicher Terminalbefehl ist ‚lock‘ 
(Sperren). Er unterbindet eine unbefugte Be- 
nutzung. Nach diesem Kommando wird ein 
neues Paßwort angefordert (nicht die Login- 
Kennung), und zwar in doppelter Ausführung. 
Anschließend ignoriert das Betriebssystem 
jede Eingabe über das betreffende Terminal, 
es sei denn, das Paßwort wird ein drittes Mal 
eingetippt. 

Die folgenden Kommandos haben nur bei 
der C-Shell Gültigkeit. Über ‚history‘ erhalten 
Sie eine Auflistung aller bisher erteilten Be- 
fehle bis zu einer vorgewählten Höchstzahl. Je- 
den einzelnen können Sie dann durch Angabe 
seiner Platznummer mit vorgesetztem Rufzei- 
chen wiederholen lassen, 2. B. führt ‚!4' zur er- 
neuten Ausführung des vierten Befehls. 

Das Kommando „alias‘ (anders) dient dazu, 
einen Befehlsnamen oder eine beliebige Zei- 
chenkette umzudefinieren. Wo immer die neue 
Bezeichnung erscheint, wird sie entsprechend 
der ‚alias'-Zuordnung uminterpretiert. Wollen 
z.B. CP/M- oder MS-DOS-Anhänger weiterhin 
‚dir‘ statt ‚ls' verwenden, um eine Directory auf- 
zulisten, brauchen diese nur einzutippen 

alias dir Is 
Ab sofort wird ‚dir‘ als ‚ls‘ gelesen und ist mit 


den üblichen Optionen zu benutzen. Wenn die 
(alte) Zeichenkette ein Semikolon enthält, das 
in Unix zur Trennung von Kommandos inner- 
halb einer Zeile dient, ist es in Anführungsstri- 
che zu setzen: 

alias dir';'date Is -a 
Durch gezielten Gebrauch von ‚alias‘ lassen 
sich bei Unix umständliche Kommandos sehr 
vereinfachen. 

In den meisten Benutzer-Directories tauchen 
einige spezielle Systemdateien auf, vor deren 
Namen Punkte erscheinen. Das ist ein Schutz 
gegen versehentliches Löschen. Zwei von die- 
sen Dateien sind von besonderem Interesse, 
da sie die Benutzerumgebung definieren, 
nämlich ‚login und .cshrc, die in der Bourne- 
Shell als .profile zusammengefaßt sind und 
eine Anzahl von Shell-Kommandos enthalten. 
Die .login-Datei wird beim Einloggen gestartet, 
während auf .cshrc bei jedem Ansprechen der 
Shell zugegriffen wird, denn diese Datei um- 
faßt vor allem die alias-, setenv- und set-Kom- 
mandos. Dank der zahlreichen Optionen bei 
setenv und set, die systemabhängig sind und 
hier aus Platzgründen nicht aufgeführt werden 
können, läßt sich das System einschließlich 
der Peripherietreiber praktisch in jedem Detail 
so einrichten, wie es den Bedürfnissen des Be- 
nutzers entspricht. 


(Wichtigste Terminal-Spezifikationen) 
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Aquarius 


Der Aquarius ist ein preis- 
günstiger und interessanter Heim- 
computer, den die als Spielzeug- 
hersteller bekannte Firma Mattel 
auf den Markt gebracht hat. 


uf dem Höhepunkt des Booms der kleinen 

Heimcomputer versuchten sich viele Fir- 
men an Sinclair-ähnlichen Rechnern. Damals 
brachte auch der kaliformische Spielzeugher- 
steller Mattel Inc. unter dem Namen ‚Aquarius‘ 
einen Computer heraus, der einen Rückblick 
wert ist, weil er gleichzeitig als Steuerzentrale 
für die gesamte Hauselektrik vorgesehen war. 

Der Aquarius verfügte über eine Bus- 
Schnittstelle, die im übrigen auch für allerlei 
Zubehör gedacht war — von kleinen 4-K-RAM- 
Modulen bis hin zu einem großen Erweite- 
rungschassis. Das Praktischste ist die kleine 
Erweiterungsbox mit zwei Steckplätzen für Zu- 
satzspeicher oder Softwaremodule sowie meh- 
rere Tonkanäle und Anschlüsse für zwei Hand- 
steuergeräte. Wenn Sie ein 16K-RAM auf dem 
einen Steckplatz haben und ein Software-ROM 
wie ‚Finplan‘ auf dem andern, ergibt sich ein 
vielseitiges System. 

Das serienmäßige 4-KByte-RAM ist mager, 
aber nach Ausbau der 64 KByte bietet der 
Rechner vom Speicherplatz her ebensoviel wie 
jeder andere Heimcomputer. Tastatur und Bild- 
schirmwiedergabe entsprechen dagegen 
nicht dem Standard anderer Maschinen. Blind 
schreiben ist wegen des schlechten Anschlags 
nicht möglich, und es fehlt eine richtige Leer- 
taste. Auch das Bildschirmformat ist mit 24 Zei- 
len zu 40 Zeichen kaum zu gebrauchen. 


Mini-Expander 

Mit zwei Steckplätzen ermöglicht diese Erweite- 
rungsbox den gleichzeitigen Betrieb eines RAM- 
Moduls und eines Software-ROMs. Der Mini-Ex- 
pander ist für zwei Handsteuergeräte eingerichtet. 
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Aquarius-Tastatur 


Wie alle Folientastaturen 


wenig überzeugend, au- Fan 
ßerdem hat sie keine ii» 
standardmäßige { 


QWERTY-Anordnung: 
Lange Leertaste und 
zweiter Umschalter 
rechts fehlen, die RE- 
TURN-Taste liegt unge- 
wohnt, und das Raster- 
maß der Tastatur ent- 
spricht nicht dem einer 


Schreibmaschine. 


Aquarius-Drucker 
Dieses Gerät be meh dem Themoanickver 


Für Text oder Tr stehen 16 Farben 
zur Verfügung. Die Zeichen können zwar nicht 
frei definiert werden, aber es lassen sich 256 
Symbole darstellen, einschließlich Klein- und 
Großbuchstaben sowie einer Auswahl von Gra- 
fikzeichen. Die höchste Grafikauflösung be- 
trägt 320 x 192 Punkte. Es ist nur ein Antennen- 
und kein Monitorausgang vorhanden, so daß 
die Wiedergabe mittelmäßig, mit leichtem 
Blaustich und begrenzter Konturenschärfe, ist. 
Eine Klangerzeugung ist zwar vorgesehen, 
aber nicht mit Hüllkurvensteuerung und Aus- 
wahl der Schwingungsform wie bei anderen 
Rechnern. Im übrigen ist ein Standard-Micro- 
soft-BASIC eingebaut. 

Die interessanteste Variante an Zubehör für 
den Aquarius ist das BSR-X-10-System. Damit 
läßt sich nämlich die gesamte Hauselektrik 
über den Computer steuern; bis zu 255 ver- 
schiedene Anschlußgeräte sollen durch Rech- 
nersignale zu beeinflussen sein. Eine zusätz- 
liche Verdrahtung entfällt, weil die Steuersi- 
gnale der Netzspannung auf der vorhandenen 
Installation überlagert werden. Davon merkt 
das Gerät unmittelbar zwar nichts, aber ein 
X-10-Empfänger, der an irgendeine Steckdose 
angeschlossen wird, kann die Steuerimpulse 
decodieren und das angeschlossene Gerät 
entsprechend schalten. Das System wird für 
eine Woche im voraus vom Rechner aus pro- 
grammiert. Während des Programmiervor- 
gangs ist der Computer blockiert. 


Antennenanschluß 
Das Gerät wird an einen 
Fernsehapparat ange- u 
schlossen, ein Monitor- 

ausgang ist nicht vorge- 

sehen. 


Stromver- 
sorgungsbuchse 

Hier wird ein externer 
Netztransformator 
eingesteckt. 


RAM- 
Chips 
Dem 
Benutzer stehen 4 KByte 
Arbeitsspeicher 
zur Verfügung. 


ROM 

8 KByte der ROM-Kapazi- 
tät belegt das Standard- 
Microsoft-BASIC, die 
restlichen 2 KByte die 
Ergänzungen für den 
Grafikbetrieb und die 
Tonerzeugung. 


HF-Modulator 

Das Bildschirmsignal 
wird einem HF-Träger 
aufmoduliert. 


computer 


Leserbefragung 


Liebe Leserin, lieber Leser 

nun ist Ihr Sammelwerk beinahe komplett. 
Da wir gerne wissen möchten, wie Ihnen 
„Computer Kurs” gefallen hat, bitten wir 
Sie, nachstehende Fragen zu beantworten 
und uns den ausgefüllten Fragebogen 
zurückzuschicken. 


Vielen Dank für Ihre Hilfe. 
DER VERLAG 


1. Wer hat diese Ausgaben von Computer-Kurs weniger gar 
gekauft? gut 


— ich selbst 

— Mutter 

— Vater 

— Schwester 

— Bruder 

— Ehepartner 

— Freund 

— Freundin 

— jemandanderer 


— Software 03 


— Bits und Bytes D 3 


— BASIC-Kurs E13 
— LOGO-Kurs D 3 


OOO0O000000 
ooNnSDUPwm-- 


— Computer Welt oO 3 


— Fragen und Ant- 


worten 
. Wie haben Ihnen die Hefte von Computer-Kurs 


insgesamt gefallen? — Fachwörter 
vonAbisZ 


— sehrgut 
— gut 


— weniger gut . a)Besitzen Sie selbst einen Computer? 
— garnicht 


= ja 
— ei 
. a) Was hat Ihnen besonders gut gefallen? Ka 


b) Falls ja: welchen? 


Wie lange besitzen Sie Ihren Computer? 


— weniger als 3 Monate 
— 3bis 6 Monate 

— 6bis 12 Monate 

— 1bis2 Jahre 


c) Haben Sie in Computer-Kurs spezielle Themen — längerals 2 Jahre 


vermißt? 


-ja . Was war für Sie der Hauptgrund, einen Computer 
— nein ö anzuschaffen? 

wenn ja: was haben Sie vermißt? 

— allgemeinestechnisches Interesse 
— schulische oder berufliche Gründe 
— Spaß an Computern 

— Sonstiges 


. Wieviele Ausgaben von Computer-Kurs haben Sie 
gesammelt? 
(19,20) 
— alle m) 
— nicht alle, sondern __ Ausgaben 


. Wofür benutzen Sie Ihren Computer? 
häufig gele- selten 


. Haben Sie sich auch die Sammelordner gekauft? gentlich 
-ja DO 
— nein m) 


— Programmierenlernen DD 1 2 0 


— Spielen E11 


. Was war für Sie der Grund, Computer-Kurs zu Sir j 
sammeln? fürberuflicheZwecke D 1 


— ich wollte Computerwissen erwerben — anderes 


— ich wollte mein Computerwissen vertiefen 
— andere Gründe 
welche? 


11. Welche Peripheriegeräte besitzen Sie? 


— Cassettenrecorder 
. Wie haben Ihnen die einzelnen Rubriken von — Diskettenstation 
Computer-Kurs gefallen? = _— 
seh weniger gar = d 
Br gut or — Joystick 
— andere 


— Hardware D 1 02 welche? 


— Peripherie O1 


— Tips für die 


Praxis Di 


. Wieviele Spielprogramme besitzen Sie? 


(42,43) 
—— Programme 


. Wie lange benutzen Sie Ihren Computer durchschnitt- 


lich pro Woche? 
(44,45) 
durchschnittlich __ Stunden pro Woche 


. Planen Sie, sich einen Computer zu kaufen? 


(46) 
1 


Ei ja DO 
— nein 


. Lesen Sie noch andere Computer-Zeitschriften? 


es ja 
— nein 
wenn ja: welche? 


. a. Für welche Gebiete/Themen interessieren Sie 


sich noch? (Bitte alle aufführen) 


b. Und welche davon würden Sie als Ihr Hobby 
bezeichnen? 


. Wieviel Stunden sehen Sie durchschnittlich fern 


in der Woche? 
ga 1 2 3 4 Std. 
nicht Std. Std. Std. u.mehr 


ARD D1 02 03 D4 


ZDF 01 02 03 D4 


3. Programm 91 02 ) 3 4 


. An welchen Tagen sehen Sie in der Woche zwischen 


17.30 und 20.00 Uhr fern? 
ARD ZDF 3.Pro- 
gramm 
Montag 
Dienstag 
Mittwoch 
Donnerstag 
Freitag 
Samstag 


DODOOD 
nnwnnwnwnmn 


. Hören Sie regelmäßig Radio? 


Nein 
Ja 
Welche Sender? 


. Zu welchen Zeiten schalten Sie am häufigsten das 


Radio zin? 


Vor 8.00 Uhr morgens 

Zwischen 8.00 und 11.00 Uhr morgens 
Inder Mittagszeit/Pause 

Nachmittags bis 16.00 Uhr 

Zwischen 16.00 und 20.00 Uhr 

Nach 20.00 Uhr 


DODOOoDO 


21. Welche Tageszeitungen lesen Sie regelmäßig, d.h. 
an mindestens 3 Tagen in der Woche? 


— regionale Tageszeitung 

— Bild-Zeitung 

— Frankfurter Allgemeine Zeitung 
— Frankfurter Rundschau 

— Die Welt 

— Die Süddeutsche Zeitung 

— Andere (bitte angeben welche) 


OD 0000000 


— lesekeine Tageszeitung 


. Kaufen Sie regelmäßig Zeitschriften? 


au ja 
— nein 


wenn ja, welche? 


. Haben Sie oder jemand sonst in Ihrem Haushalt 


irgendein anderes wöchentlich erscheinendes Sam- 


melwerk bezogen? 


(64) 
1 


(68) 


— Nein 
— Ja 


Wenn ja, welche: 

— Wie geht das? 

— Fotopraxis 

— Kochen Sie mit 

— Harmonie 

— Aero 

— Maler 

— Computer Kurs 

— Erzähl mir was 

— Andere (bitte angeben welche) 


OO0000000 


STATISTIK 


24. Sind Sie 


— männlich 
— weiblich 


. Familienstand 
— ledig, alleinstehend 
— verheiratet, mit einem Partner 
zusammenlebend 
— geschieden/verwitwet 


. Wie alt sind Sie? 


. Sind Sie berufstätig? 


— ja, vollberufstätig 
— ja, teilweise berufstätig 
— nein, bin Student bzw. Schüler 
— nein, bin Rentner, also nicht 
mehr berufstätig 
— nein, nicht berufstätig 
(z.B. Hausfrau) 


. Sind Sie in Ihrem Haushalt 


a) Der Haushaltsvorstand 
b) Die haushaltsführende Person 


4 
2 


xXxOOVvo nun nw 


. Welcher Berufsgruppe gehören Sie selbst an, bzw. 
haben Sie früher angehört 
Falls Sie selbst nicht der Haushaltsvorstand sind, 
kreuzen Sie bitte auch das zutreffende Kästchen in 
der zweiten Spalte für den Haushaltsvorstand an. 
(74,75) 
Befragte Haushalts- 
selbst vorstand 
— Inhaber, Leiter von 
Unternehmen, selb- DO 1 D 1 
ständig 
— Freiberufler 
— leitender Angestellter 
— sonstiger Angestellter 
— leitender Beamter 
— sonstiger Beamter 
— Facharbeiter 
— sonstiger Arbeiter 
— zur Zeitarbeitslos 
— nie berufstätiggewesen 


OOO0000000 
oVnnDuPwm 
DO0000000 
OVONnDumPwm 


. Wieviele Personen leben insgesamt in Ihrem 


Haushalt? 


Personen 


. Und wieviele davon sind Kinder unter 14 Jahren? 


(77) 
Kinder unter 14 Jahre 


. In welchem Land bzw. Bundesland leben Sie? 


— Schleswig-Holstein 
— Hamburg 
— Niedersachsen 


schreiben Sie sie bitte hier: 


— Bremen 

— Nordrhein-Westfalen 
— Hessen 

— Rheinland-Pfalz 

— Baden-Württemberg 
— Saarland 

— Bayern 

— West-Berlin 


= 
n-2xovooanoun 


— Österreich 
— Schweiz 


00 00000000 


. Wieviele Einwohner hat Ihr Wohnort? 


_ bisunter 5.000 Einwohner 
—  5.000bis unter 20.000 Einwohner 
— 20.000 bis unter 100.000 Einwohner 
— 100.000 bis unter 500.000 Einwohner 
— 500.000 Einwohner und mehr 


. Wir möchten gelegentlich eine Untersuchung darüber 


anstellen, wie unsere Zeitschriften gefallen haben. 
Wären Sie bereit, uns dabei zu unterstützen? Wenn 
ja, geben Sie bitte nachstehend Ihre Telefonnummer 
an, damit einer unserer Mitarbeiter Sie eventuell errei- 
chen kann. 

— nein 

- ja 

wenn ja: Tel. Nr. (mit Vorwahl) 


. Falls Sie noch weitere Anmerkungen, Kommentare, Kritik zu Computer-Kurs haben, 


Bitte lösen Sie den Fragebogen heraus und 
stecken Sie ihn in einen Umschlag. Senden 
Sie ihre Antwort an: 


Computer Kurs 
Leserbefragung 


Marshall Cavendish Int. Ltd. 
Sammelwerk-Service 
Postfach 10 57 03 

D 2000 Hamburg 1 


Hardware m 


Aquarius 


ABMESSUNGEN: 
345 x 55 x 150 mm 


ZENTRALEINHEIT: 
Z80 mit 3,5 MHz-Takt 


SPEICHER: 


10 KByte ROM, 4 KByte RAM 
(auf 64 KByte ausbaubar) 


BILDSCHIRMFORMAT: 


24 Zeilen zu 40 Zeichen, 16 Far- 
ben (Vorder- und Hintergrund 
unabhängig wählbar); 256 feste 
Zeichen (keine Möglichkeit der 
Definition durch den Benutzer) 


SCHNITTSTELLEN: 


Cassettenrecorder, Drucker, Er- 
weiterungsbus 


EINGEBAUTE SPRACHE: 
Microsoft BASIC 


MITGELIEFERT: 


Handbuch für BASIC und Inbe- 
triebnahme, Antennenkabel 


Druckeranschluß 

Die Druckerschnittstelle 
entspricht keinem gängi- | TASTATUR: 

gen Standard. Der Benut- | 49 Druckpunkttasten, Reset- 
zer kann nur die beiden Knopf mit Schutz gegen verse- 
Drucker von der Firma hentliche Betätigung 

Mattel verwenden. 


DOKUMENTATION: 


Die Anleitung ist besonders 
gut für Anfänger geeignet; 
dazu gehört ein Satz prakti- 
scher Klappkarten, auf denen 
die wichtigsten Funktionen des 
Rechners und des BASIC-Sy- 
stems beschrieben sind. 


Erweiterungsbus 

An dieser Steckleiste läßt 
sich einiges an Zubehör 
betreiben, vom 4-KByte- 
RAM-Modul bis zu einem 
großen Erweiterungs- 
chassis, das Steckplätze 
für mehrere 16-K-RAMs 
enthält. 


Prozessor 

Der verwendete Z80 
arbeitet mit einer Takt- 
frequenz von 3,5 MHz. 


Sicherheitschip c tt der- 
Video-Chip Die Aquarius-ROMs sind Buchse re 
Die Bereitstellung des durch einen speziellen 
Videosignals erfordert Chip geschützt. 


einen hohen Schaltungs- 
aufwand. Beim Aquarius 
ist der Videochip größer 
als der Mikroprozessor. 
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.„.hat man Töne 


Das Betriebssystem der Schneider-CPC-Reihe enthält Möglichkeiten 
zur Tonsteuerung, die den BASIC-Klangbefehlen nahekommen. Wir 
zeigen, wie das OS Klänge erzeugt und wie man Programme mit 


Hintergrundmusik untermalen kann. 


ie Schneider-CPC-Reihe arbeitet mit dem 
Tongenerator AY-3-8912 von General In- 
struments (kurz „8912“ genannt), der nicht nur 
Klänge erzeugen kann, sondern über einen 
Acht-Bit-Ausgang auch die Tastatur abfragt. 
Der 8912 unterstützt drei unabhängige Ton- 
kanäle (A, B und C) und einen Pseudogenera- 
tor für Rauschen, der auf jeden Kanal geschal- 
tet werden kann. Der Chip erzeugt Töne, deren 
Lautstärke er mit vordefinierten Hüllkurven 
verändern kann. Die Aussage des Tongenera- 
tors wird zu Stereoklängen vermischt: Kanal A 
ist links, Kanal B rechts und Kanal C wird 
gleichmäßig zwischen beiden aufgeteilt. Diese 
Grundmöglichkeiten werden noch von dem 
Betriebssystem verfeinert, das per Software 
Ton, Lautstärke und Synchronisation steuert. 


Kanalstatus 


Amplitudenhüllkurve 
1 — 2 Sekunden Anfangslautstärke 
1-15 = die SOUND_AMPL_ 
ENVELOPE Hüllkurve einsetzen 


Tonhüllkurve 
2 0 = Keine Hüllkurve, 1-15 = 
die SOUND_TONE_ENVELOPE 
Hüllkurve einsetzen 


Tonperiode 
_ 0 = kein Ton 
1-4095 = Tonperiode 


Rauschperiode 
5 0 — kein Rauschen 
1-31 Rauschperiode 


Anfangslautstärke 
6 0-15 


Dauer/Wiederholungszähler 
0 = Lautstärkenhüllkurve 
— einmal ausführen Be 
-n = Lautstärkenhüllkurve ‚n‘ mal 
8 ausführen 
+n = Dauer in n/100 Sekunden 


Bei der Tonerzeugung arbeiten die BASIC- 
Befehle ENV, ENT, RELEASE, SOUND und SQ 
direkt mit dem Betriebssystem, so daß Parame- 
ter und Konzepte fast völlig übereinstimmen. 
Das OS steuert Klänge mit einem speziellen 
Interrupt, der hundertmal pro Sekunde stattfin- 
det und speziell auf die Verarbeitung von Ton- 
befehlen ausgerichtet ist. 


Kommandoblöcke 


Dabei werden beispielsweise Kanäle mitein- 
ander gekoppelt und Hüllkurven während des 
Ereignisses aktualisiert. Sehen wir uns zu- 
nächst die Klangbefehle und die Arbeitsab- 
läufe genauer an. 

Zu jedem Ton gehört ein Kommandoblock 


Auf Kanal Mit Kanal 
ausgeben koppeln 


ll 
SEIEIEHESENEICT TED 


mit Angaben über Anfangston und anfängliche 
Lautstärke, Hüllkurven für die darauffolgende 
Lautstärke und Tonhöhe, Tondauer und Para- 
metern für die Synchronisation. Der Komman- 
doblock muß in den mittleren 32 KBytes des 
Speichers liegen und kann mit der Routine 
SOUND_QUEUE in die „Warteschlange“ eines 
Kanals gestellt werden. Die übergebenen Pa- 
rameter haben die gleiche Bedeutung wie in 
dem BASIC-Befehl SOUND, stehen aber in 
einer anderen Reihenfolge. Das nebenste- 
hende Bild zeigt die Struktur eines von SOUND_ 
QUEUE eingesetzten Klangbefehls. Befehle, 
die vorn in der Warteschlange stehen, werden 
allerdings nur dann ausgeführt, wenn ihre Syn- 
chronisationsbedingungen erfüllt sind. Ist dies 
nicht der Fall, können sie über SOUND_RE- 
LEASE gelöscht oder mit einem anderen Ton- 
kanal gekoppelt werden. 

Die Routine SOUND_CHECK übergibt die 
Bitnummer des Kanals an den Akkumulator 
und liefert den Status des Kanals im Format 
der BASIC-Funktion SQ). 

Sehen wir uns nun die Hüllkurvensteuerung 
an. Auch hier entsprechen die Firmwarepara- 
meter der Ton- und Lautstärkenhüllkurven de- 
nen der BASIC-Befehle. Die tabellenartig an- 
geordneten Hüllkurvendaten stehen in der 
Reihenfolge, in der sie den Routinen überge- 
ben werden. Da die Adresse einer Hüllkurven- 


tabelle jederzeit mit SOUND_T_ADDRESS 
oder SOUND_A_ADDRESS festgestellt werden 
kann, lassen sich die Hüllkurven leicht durch 
Patchen, ohne Aufruf der entsprechenden 
Firmwareroutinen, ändern. 

Das Format dieses Datenblocks haben wir in 
dem nebenstehenden Diagramm abgebildet. 
Über den Offset in den Datenblock können Sie 
jeden beliebigen Bereich patchen. Sie müssen 
nur darauf achten, daß der Datenbereich wäh- 
rend des Patchens nicht auch von den Firm- 
wareroutinen angesprochen wird. Dies stört 
zwar den Programmablauf nicht, doch können 
dadurch Töne entstehen, die so nicht geplant 
waren. 

Die Firmwareroutine SOUND_ARM_EVENT 
hat eine besonders praktische Funktion. Sie 
legt ein Ereignis an, das ausgelöst wird, wenn 
die Warteschlange eines angegebenen Kanals 
leer ist. Die Routine meldet dafür beim Klang- 
interrupt ein spezielles Ereignis an. Dieses Er- 
eignis prüft zunächst, ob die Warteschlange 
des entsprechenden Kanals leer ist. Falls ja, 
wird der von SOUND_ARM_EVENT angelegte 
Ereignisblock aktiviert und je nach Ereignis- 
klasse verarbeitet. 

Der übergebene Ereignisblock wird mit 
KL_INIT_EVENT intitialisiert und kann jede 
Klasse oder Priorität annehmen. Da der Klang- 
interrupt aber alle Hundertstelsekunden statt- 
findet, genügt normales, asynchrones Ereignis. 

Mit dieser Technik läßt sich beim Ablauf 
eines Programms eine permanente Hinter- 
grundmusik erzeugen, ohne daß der Tonchip 
ständig mit neuen Daten versorgt werden muß. 
Die Ereignisroutine holt sich dabei die nächste 
Tonprogrammadresse aus dem vordefinierten 
Datenbereich und ruft dann SOUND_QUEUE 
auf. Wenn Sie am Ende der Routine wieder an 
den Anfang verzweigen, erhalten Sie eine 
ständige Hintergrundbegleitung. 


Klangereignis aus 


Da SOUND_QUEUE das Klangereignis ab- 
schaltet, muß sich die Routine vor ihrem Ende 
selbst wieder aufrufen, indem sie mit SOUND 
_ARM_EVENT ihren eigenen Parameterblock 
übergibt. Das Ablaufdiagramm zeigt, wie die 
Ereignisroutine mit Hilfe der Warteschlange 
eine permanente Klangkulisse erzeugt. 

SOUND_HOLD kann die Klangerzeugung 
jederzeit abstellen. Dabei werden alle aktiven 
Hüllkurven angehalten und der Ton abge- 
schaltet. SOUND_CONTINUE, SOUND_ 
QUEUE oder SOUND_RELEASE starten die 
Musik von neuem. SOUND_RELEASE löst den 
Start der Klangprogramme aus, die einzeln 
aufgerufen werden müssen. 

Wenn mit der Tastatur eine Unterbrechung 
veranlaßt wurde, stellt der Aufruf von SOUND_ 
HOLD sicher, daß fehlerhafte Töne nicht aus- 
geführt werden. So kann kein Mißklang oder 
eine Disharmonie entstehen. 


Byte 0 1 2 3 


Anzahl der 
Bereiche 
(1-5) 


Bereich 1 


Jede Hüllkurve kann 
bis zu fünf Bereiche 
enthalten. Jeder Bereich 
besteht aus drei Bytes, 
die als Schrittzähler 
dienen und Schrittgröße 
und Unterbrechungszei- 
ten angeben. Wenn die 
Lautstärkenhüllkurven 


Hauptprogramm 


INIT_EVENT 
aufrufen 
SOUND_ARM._ 
EVENT aufrufen 


13 14 
Schritt- Schritt- 
größe größe 


der Firmware einge- 
setzt werden, steht im 
ersten Byte des Blocks 
die Hüllkurvennummer 
(zwischen 128 und 143), 
und Byte zwei und drei 
enthalten die Unterbre- 
chungszeit. 


Ereignisroutine 


Bereich 2-4 Bereich 5 


Mit SOUND_ARM_ 
EVENT können Sie er- 
eignisgesteuerte Hin- 
tergrundmusik erzeu- 
gen, während das 
Hauptprogramm im 
Vordergrund weiter- 
läuft. Das Bild zeigt die 
verschiedenen Abläufe. 


Firmware- 
abläufe 


SOUND_QUEUE 
aufrufen 


OBCA7H SOUND_RESET 
OBCAAH SOUND_QUEUE 


OBCADH SOUND_CHECK 
OBCAOH SOUND_ARM_EVENT 
OBCB3H SOUND_RELEASE 
OBCB6H SOUND_HOLD 

OBCB9H SOUND_CONTINUE 
OBCBCH SOUND_AMPL_ENVELOPE 
OBCBFH SOUND_TONE_ENVELOPE 
OBCC2H SOUND_A_ADDRESS 


OBCC5H SOUND_T_ADDRESS 


Der Routinen der Tonsteuerung 


RESET der Tonsteuerung 
Ton in eine der Warteschlangen stel- 
len 

Liefert den Status einer Warteschlange 
Ermöglicht das Auslösen eines Ereig- 
nisses, wenn die Warteschlange leer 
ist 

Gibt alle Töne einer Warteschlange 
frei 

Hält Töne aller Warteschlangen an 
Läßt gestoppte Töne weiterlaufen 
Initialisiert eine der softwaregesteuer- 
ten Hüllkurven für die Lautstärke 
Initialisiert eine der softwaregesteuer- 
ten Hüllkurven für Töne 

Liefert die Adresse einer Lautstärken- 
hüllkurve 

Liefert die Adresse einer Tonhüllkurve 
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In der hier dargestellten 
Situation werden gerade 
die Klänge Eins und 
Zwei ausgeführt. Nach 
dem Ende von Klang 
Zwei wartet der nächste 
Befehl der Warte- 
schlange auf 
SOUND_RELEASE. Da 
der Befehl in Warte- 
schlange C mit den Ka- 
nälen A und B gekoppelt 
werden soll, muß er auf 
die Befehle dieser Warte- 
schlange warten. Inzwi- 
schen ist Klang Eins 
beendet, so daß A mit C 
gekoppelt werden kann, 
doch fehlt noch die 
Kopplung mit B. Nach 
Freigabe der Warte- 
schlange B ist die Kopp- 
lung möglich, und Klang 
Drei, Vier und Fünf ertö- 
nen gleichzeitig. 


Tonbefehl 
(mit Nummer) 


Kopplung mit 
Kanal 


Der Befehl CALL 


Der BASIC-Befehl CALL, mit dem Daten als 
„Parameterblock“ an Maschinencoderoutinen 
übergeben werden, ist in den Handbüchern 
nicht besonders gut beschrieben. Die vom 
Anwender gelieferten Parameter werden von 
der untersten (ersten) Blockadresse an auf- 
wärts abgelegt. Beim Einsprung in die mit 
CALL aufgerufene Routine zeigt IX auf diese 
Adresse. 

Numerische Werte können direkt überge- 
ben werden, nicht aber Variable. Statt dessen 
wird die Adresse der Variablen (bei String- 
variablen die Adresse des String-Steuer- 
blocks) mit dem Symbol @ übergeben. 

Das folgende Beispiel ruft eine Routine bei 


Das Editieren von Hüll- 
kurven kann recht kom- 
pliziert werden. Mit un- 
serem Editor für Hüllkur- 
ven können Sie Ihre Pa- 
rameter eingeben und 
auf dem Bildschirm 
gleich die Form der da- 
zugehörigen Hüllkurve 


dem angezeigten 


Warten, bis die Freigabe 
von SOUND_RELEASE erfolgt 


&A000 auf, übergibt ihr den Wert 85 und ent- 
hält bei der Rückkehr ins BASIC die Resul- 
tate in Ergebnis% und Antwort$: 

CALL &A000,85,@Ergebnis%,@Antwort$ 

Beim Einsprung in die Routine zeigt IX auf 
einen ROM-Block, der zuerst den Wert 85 als 
16-Bit-Ganzzahl ohne Vorzeichen enthält, dann 
zwei Bytes mit der Adresse von Ergebnis% 
und schließlich die Adresse des Stringsteuer- 
blocks für Antwort$. Der Stringsteuerblock 
besteht aus drei Bytes, in denen zunächst die 
Stringlänge und dann die Adresse stehen. 
Dieser Block sollte möglichst nicht geändert 
werden, da sonst Probleme mit der Firmware 
entstehen könnten. 


sehen. 


Editor für Hüllkurven 


50 MEMORY &öFFF: DIM envelope(15) 

60 done=0: routine=#7000: butfer=routine+t#100: nk=i 

?0 WHILE -1 

80 MODE 2: LOCATE 1,20: INPUT "Start volume (0-15) *;sw%: 1 
F sv%)15 OR sv/<0 THEN 80 

90 LOCATE 1,21: INPUT "Start tone ";tt: IF ttX0 OR tt)4095 T 
HEN 90 

100 LOCATE 1,22:INPUT "Horizontal scale (1-10) ";sck: IF sch 
10 OR sc/41 THEN 100 

110 LOCATE 1,23: INPUT "Volume or tone envelope (W/T) ";senvs 
: IF (UPPER$(senv$) ()"V") AND (UPPER$Csenv$)<)"T") THEN G0TO 
110 

120 W=0: IF UPPER$(senv$)="V* THEN pk=&BC: Wei: ELSE pk=k 
BF 

130 Tength%=0: soundx=0: IF Wei THEN soundy=INT(sv%%#9.7) E 
LSE soundy=68 

140 FOR x=1 710 15 

150  envelope(x)=0 

160 NEXT 

170 G0SUB 270 

180 LOCATE 1,20: PRINT CHR$(18) 

190 FOR count=i TO 5 

200 60SUB 340: nk=ABS(nK-1): GOSUB 540: IF W=1 THEN GOSUB 
880 ELSE GOSUB 890 

210 NEXT 

220 WHILE NOT done 

230  LOCATE 5,20: INPUT "Edit (y/n) ";jed$ 

240 IF UPPER$(ed$)="N" THEN done=-I ELSE GOSUB 790 

250 WEND 

240 WEND 

270 REM intialise screen 

280 MODE 1: WINDOW #1,1,39,1,2: GOSUB 1000 

290 MOVE 20,380: DRAW 20,210,3: DRA4 600,210,3 

300 MWE 21 ‚soundy+211 

310 POKE routine, &3E: POKE routinetl,i 

320 POKE routine+2, &21: POKE routine+3, buffer-(INTCbutfer/ 
256))#256: POKE routine+4, INT(buffer/256) 

330 POKE routine+5,&C3: POKE routinets,pK: POKE routine+7,&B 
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340 POKE routine+8,&C9 

350 RETURN 

360 REM get section data 

370 LOCATE 1,20: PRINT CHR$(18);: LOCATE 5,20: PRINT "Sectio 
n *;count 

380 LOCATE 1,22: PRINT CHR$(18);: LOCATE 5,22: INPUT "Step c 
ount *; skip%: IF W=0 THEN G0TD 400 ELSE IF skip%(0 OR skip 
7127 THEN 380 

390 6070 410 

400 IF skip%4(0 OR sKip%)239 THEN 60T0 380 

410 P$=STRSCSKIPX) : GOSUB 900 

420 LOCATE 1,23: PRINT CHR$(18);: LOCATE 5,23: INPUT *Step s 
ize ";size/: IF W=0 THEN G0T0 440 ELSE IF ABS(sizeX))15 THE 
N 420 

430 60T0 450 

440 IF ABS(size%))127 THEN 420 

450 PS=STR$(size%): GOSUB 900 

460 ss=size4: IF size4(0 THEN size/256-ABS(size/) 

470 LOCATE 1,24: PRINT CHR$(18);: LOCATE 5,24: INPUT "Pause 

tine "; pause/: IF pause/)255 THEN 470 

480 P$=STR$Cpause/): GOSUB 900 

490 envelope ((count-1)x341)=sKip%: envelope ((count-1)%3+2) 
=size%: envelope ((count-1)x3+3)=pause/ 

500 FOR x=20 T0 24 

510 LOCATE 1,x: PRINT CHR$(18); 

520 NEXT 

530 RETURN 

540 REM envelope intialisation 

550 POKE buffer ‚count 

560 CLS #1: GOSUB 1000 

570 FOR x=0 TO count-1 

580 POKE buffer+(x#3+1) ‚envelope(x#3+1): sKip/=envelope(x#3+ 
1) 

590 p$=STR$Cenvelope(xx3+1)): GOSUB 900 

600 POKE bufter+(x#3+2) ‚envelope(x#3+2): size/=envelope(x&3+ 
2 

610 pp=envelope(x#3+2): IF pp)127 THEN pp=pp-256- 

620 p$=STR$Cpp): GOSUB 900 

630 POKE buffer+(x*3+3) ‚envelope(x#3+3): pause/=envelope(x#3 
+3) { 


640 p$=STR$(envelope(x#3+3)): GOSUB 900 

650 NEXT x 

660 TengthY=1ength/+skip/&pause/, 

670 CALL routine 

680 IF W=0 THEN G0SUB 910: RETURN 

690 off4rsize4#10: IF size%)127 THEN off4=(size/-256)*10 
00 FOR x=1 TO skip 

?10 soundy=(soundy+totf%) MOD 150: IF soundy(0 THEN soundy=1 
50-soundy 

?20 FOR c=1 TO (10/51)&pause/+2: soundx=soundxt (sch) 

730 DRAW soundx+21 ‚soundy+211,2+nK 

?40 NEXT 

750 NEXT 

760 DRA4 soundx+21 ‚soundy+211,2+nK 

770 RETURN 

780 REM redrau graph 

790 LOCATE 5,20: PRINT CHR$C18);: INPUT "Section" ;seck: IF s 
ec/X1 OR sec/)5 THEN 790 

800 count=sec/: GOSUB 360 

810 CLS: soundx=0: soundy=INT(sv4%9,7): length/=0: GOSUB 270 
820 FOR section=1 T0 5 

830  count=section: GOSUB 540 

840 NEXT 

850 60SUB 870 

860 RETURN 

870 REM sound 

880 SOUND 1,tt,Tength/,svZ,1: RETURN 

890 SOUND 1,tt,length/,sv%,,1: RETURN 

900 PRINT Ni ,MIDSCPE ,C2ABSCWALCPSIAO)))5",";: RETURN 

910 FOR x=1 TO sKip% 

920 soundy=soundy-((15/127)&ss): IF soundy<0 THEN soundy=0 
930 IF soundy)189 THEN soundy=189 

940 FOR c=1 T0 (7/51)%*pause/t2: soundx=soundx+tscH 

950 DRAW soundx+21 ‚soundy+211,2#nk 

960 NEXT 

970 NEXT 

980 DRAW soundx+21,soundy+t211,2+nk 

990 RETURN 

1000 IF Wei THEN PRINT #1, "EN 1, "; ELSE PRINT #1, "ENT 1 


Bares 
1010 RETURN 


Das Hulk 


Experten-System 


Der Begriff „Ingenieurwesen“ unterzieht sich einem 
Bedeutungswandel. Während Ingenieure des 19. Jahrhunderts Eisen 
und Stahl umformten und zu Schiffen und Brücken verarbeiteten, 
bezeichnet das Ingenieurwesen heute eine Vielzahl von Berufen, 
deren Aufgabe es auch ist, Wissen zu verarbeiten. 


in „Wissens-Ingenieur" weiß, wie Exper- 

ten-Systeme entwickelt werden. Experten- 
Systeme (ES) beinhalten organisiertes Wissen 
über ein Fachgebiet menschlicher Sachkennt- 
nis, ein Beispiel ist eine medizinische Dia- 
gnose. Der Arzt hat ein umfangreiches, fakti- 
sches Wissen über Krankheiten, ihre Anzei- 
chen und Symptome. Seine Sachkenntnis be- 
steht aus der Fähigkeit, die Symptome eines 
Patienten und die Beschreibung in medizini- 
schen Fachbüchern zueinander in Bezug zu 
bringen. Dies geschieht auch unter Berück- 
sichtigung zurückliegender Erfahrungen mit 
der vermuteten Krankheit. Je besser der Arzt 


im Kombinieren von Fachbuchwissen und ak- 
tuellen Beobachtungen ist, desto besser kann 
seine Diagnosetechnik sein. 

Entscheidende Faktoren sind die Fähigkeit, 
sich an organisierte Daten zu erinnern, daraus 
Muster zu bilden und beobachtete Fälle mit 
diesen Mustern zu vergleichen, auch wenn Da- 
ten unvollständig sind oder nicht zu vorange- 
gangenen Fällen passen. Die ersten beiden 
Faktoren, Organisation und Klassifizierung von 
Daten, sind Arbeitsbereiche des Computers, 
der letzte Faktor erfordert einen menschlichen 
Experten. Könnte ein Computersystem statisti- 


sche Analysen verwenden, um das Gefühl und 
den Spürsinn des menschlichen Experten zu 
simulieren, wäre es durch seine Datenorgani- 


Der HULK 
RUN 


Haupt- 


— > 


Regeln testen 


In einem traditionellen 
Experten-System ver- 
wendet die Entschei- 
dungsfindung eine 
Reihe von IF... THEN- 
Regeln aus einer Wis- 
sensbank für Antworten 
auf Fragen, die der An- 
wender eingibt. Das 
Wissen, auf dem diese 
Regeln basieren, wird 
von Experten über das 
Lernmodul eingegeben. 
Mit HULK wird ein Satz 
von Entscheidungsre- 
geln aus einer Haupt- 
datei erstellt, gestützt 
durch Beobachtungen, 
die der Anwender ein- 
gibt. Dafür sind zwei 
Programme erforder- 
lich: LOOK, das einen 
Trainings-Datensatz 
zum Ausprobieren der 
Regeln benötigt, und 
einen weiteren Daten- 
satz zum Prüfen auf 
Anwendbarkeit. LEAP 
benutzt diese Regeln, 
um anhand der Daten 
Wahrscheinlichkeitsbe- 
rechnungen zu 
erstellen. 


Ursprünglich wurde 
HULK von Richard For- 
syth als praktisches 
Projekt für seine Stu- 
denten am Polytechni- 
kum Nord-London ent- 
wickelt. Obwohl die Er- 
stellung des Programms 
nur zwei Wochen in 
Anspruch nahm, ver- 
gingen weitere sechs 
Monate, bis es soweit 
verfeinert war, daß es 
als anwenderfreundlich 
gelten konnte. 
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sationsfähigkeit in der Lage, den Menschen zu 
übertreffen. 

Am wichtigsten sind diese Systeme dort, wo 
es, wie in der medizinischen Diagnose, keine 
festgelegten Entscheidungskriterien gibt und 
menschliches Urteilsvermögen unabdingbar 
ist. Da Wissen, oft in Form von Regelsammlun- 
gen, unverzichtbar für den Betrieb dieser Sy- 
steme ist, werden sie auch als „rule-based" 
(auf Regeln basierend) oder „knowledge- 
based“ (auf Wissen basierend) bezeichnet. 
Experten-Systeme haben sich auf verschiede- 
nen Gebieten als erfolgreich erwiesen. 


Experten-Systeme 


Schon jetzt können sie ausgebildete Fachleute 
in der medizinischen Diagnose, der Suche 
nach Rohstoffen und vielen anderen Gebieten 
übertreffen. Aufgrund dieser Erfolge finden 
wir diese ES nicht mehr nur in Forschungslabo- 
ren für Künstliche Intelligenz, sondern auch 
bei unterschiedlichen Computeranwendun- 
gen. Daraus ergeben sich Konsequenzen für 
die Konzeption und Konstruktion solcher Ma- 
schinen. Ihr Einsatz bei der Softwareentwick- 
lung ersetzt den traditionellen Grundsatz 
Daten + Algorithmen = Programm 


durch die Methodik 
Wissen + Folgerungen = System 


— ein evolutionärer Fortschritt mit weitreichen- 
den Konsequenzen. 

Ein Experten-System basiert auf einem 
„Wissensgerüst“. Daneben stehen aber drei 
weitere Komponenten, die einem ES volle Ar- 
beitsfähigkeit verleihen: Die Entscheidungs- 
findung, die neue Regeln zum Interpretieren 
von Daten auf der Basis existierender Regeln 
und Daten entwirft; das Lernmodul, das aus 
„eigenen Erfahrungen“ oder denen des 
menschlichen Experten neues Wissen zusam- 
menstellt, und schließlich die Schnittstelle zum 
Benutzer, über die auch ein Nicht-Experte das 
System befragen und benutzen kann. Betrach- 
ten wir die beiden Kernmodule, die Entschei- 
dungsfindung und das Lernmodul. 

Eine Wissensbasis enthält Fakten (oder Be- 
hauptungen) und Regeln. Fakten können sich 
jedoch sehr schnell ändern (z.B. während 
einer Konsultation). Regeln sind die Langzeit- 
informationen darüber, wie man aus Wissen 
neue Fakten oder Hypothesen entwickelt. 
Doch was unterscheidet dies von konventio- 
nellen Datenbanken? Die Wissensbank ist 
kreativ. Die Fakten in einer Datenbank sind 
normalerweise passiv: Sie sind einfach vorhan- 
den und werden, ganz nach Bedarf des Benut- 
zers, archiviert und abgerufen. Dagegen ver- 
sucht die Wissensbank, unabhängig von den 
Fragen des Benutzers, fehlende Informationen 
aufzufüllen, unter Berücksichtigung des vor- 
handenen Wissens. 
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Wettervorhersage 


Wir ließen HULK mit 
dieser Datei laufen 
und wurden nach Hy- 
pothesen über die 
Daten befragt. Die 
Hypothese lautete: 
TOMORROW=1 
womit gemeint ist, 
daß wir an solchen 
Mustern interessiert 
sind, deren letzte Va- 
riable den Wert Eins 
hat — anders ausge- 
drückt, Tage, an de- 
nen es am darauffol- 
genden Tage reg- 
nete. Wir wollen mit 
HULK-Regeln arbei- 
ten, die es uns er- 
möglichen, vom Wet- 
ter des heutigen Ta- 
ges Rückschlüsse auf 
das Wetter von mor- 
gen zu ziehen. 

Die Wahrschein- 
lichkeit, daß Regen 
zu erwarten ist, wird 
gemessen und in 
einer Regel verarbei- 
tet, die später mit an- 
deren Regeln An- 
wendung findet. 
HULK schlägt vor, ob 
die Regeln in die Re- 
geldatei aufgenom- 
men werden soll 
oder nicht. Die Ent- 
scheidung darüber 
liegt beim Anwender. 
Wir fanden schnell 
drei Regeln, um für 
morgen Regen vor- 
herzusagen: 

1) Wenn der Nieder- 
schlag heute über 

2 mm liegt 

UND 

2) Wenn die Sonne 
heute weniger als 3,5 
Stunden scheint 
UND 

3) Wenn der Unter- 
schied zwischen der 
höchsten und der 
tiefsten Temperatur 
weniger als sechs 
Grad beträgt 

DANN 

können Sie mit 
83%iger Sicherheit 
davon ausgehen, daß 
es morgen regnet 
und Sie naß werden. 


Hier ein Beispiel zur Datenorganisation: 


2 WEATHER,S0,S5 


Zeile | beschreibt die Datei und beinhaltet den Namen (WEA- 
THER), die Anzahl der Datenmuster (30) und die Anzahl der Daten 
per Muster (5). Die Datei besteht aus den Wetterdaten eines Mo- 
nats in London. Zu jedem Tag sind aufgeführt: Tiefst- und Höchst- 
temperatur, Niederschlag (in mm), Sonnenschein-Stunden und eine 
Boolsche Variable, deren Wert Eins ist, wenn es am folgenden Tag 
regnete, und Null, wenn es trocken blieb. 


100 MINIMUNT 
200 MAXIMUMT 
J00 RAINFALL 
4200 SUNSHINE 


500 TOMORROW 
Die Zeilen 100 bis 500 geben die Namen der Muster-Daten an. 
2001 D01,54,110,175,32,s1 
1002 DO2,42,125,041,62,1 
1003 D03,76,112,077, 11,1 
1004 D04,27,105,018,43,0 
1005 D05,30,120,000,75,0 
1006 D06,#4,106,000,55,0 
D07,828,0932,000,51,1 
D08,68,092,055,48,1 
D09,682,102,048,#1,1 


D28,58,158,000,20,1 
D29,67,088,064,42,0 
D30,825,096,000,68,1 


Die eigentlichen Daten speichern die Zeilen 1001 bis 1030, jeweils 
ein Muster per Zeile, beginnend mit einer Identifizierung. Da HULK 
nur mit Ganzzahlen arbeiten kann, wurden alle Werte mit 10 multi- 


pliziert. 


Zeile 1001 lautet eigentlich 1001 D01,5.4,11.0,17.5,3.2,1 — was für alle 
Datenzeilen gilt. 


TOMORROW = 1 
ASKING FOR RULE [1 ] | 


RULEIS; | RAINFALL > 20 


CONTINGENCY TABLE | SUCCESS | FAILURE | 
RULE TRUE | 12 | 


SUCCESS RATE = 76.3% 
BITS PER SAMPLE 
BEFORE RAINF 


rare 


YOU ARE ADVISED TO THE RULE OK 
RULE HAS BEEN TO THE RULESET . 


f 
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Bits pro Muster 5 
Ergebnis, bei wievielen Datenmustern die Regel zutrifft. 


Regeln im „IF... THEN"-Format sind die be- 
vorzugte Methode, Wissen „über den Daumen 
zu peilen“. Hierzu ein Beispiel: 

IF die Heimmannschaft das letzte Heimspiel 
verlor, 

AND die Gesamtmannschaft ihr letztes Heim- 
spiel mit zwei Toren gewann, 

THEN wird die Wahrscheinlichkeit eines Un- 
entschieden mit 1088 multipliziert. 

Diese Regeln sind nicht im Programm ent- 
halten, sondern sind Daten der Entscheidungs- 
findung. Es gibt zwei Hauptstrategien, um 
Schlußfolgerungen zu ziehen: Vor- und Rück- 
wärtsverkettungen. Die Vorwärtsverkettung 
untersucht Daten, um daraus Hypothesen zu 
erstellen, hingegen versucht die Rückwärts- 
verkettung Daten zu finden, um eine erstellte 
Hypothese zu beweisen oder zu widerlegen. 
Reine Vorwärtsverkettung führt zu nicht genau 
definierten „WAS, WENN...“-Abfragen des 
Systems, während die Rückwärtsverkettung 
zielstrebig vorgeht. 

Die erfolgreichsten Systeme benutzen eine 
Mischung aus beidem. Ob die Entscheidungs- 
findung vor- oder rückverkettet, sie muß mit 
„unsicheren“ (teilweise noch nicht bewiese- 
nen) Daten arbeiten. Computerexperten ver- 
suchten immer wieder, unsere Welt in den 
starren Abgrenzungen des Computers zu er- 
fassen und gingen damit an der Realität vor- 
bei. Die ES-Forschung ermöglicht eine präzise 
Arbeit mit unsicheren Daten — eine stärkere 
Annäherung an die Wirklichkeit, als die ideali- 
sierten Abstraktionen unserer Datensysteme 
es erlaubten. 

Tatsächlich gibt es zu viele Wege, mit Unsi- 
cherheiten zu arbeiten. Da sind Fuzzy Logic, 
Bayesian Logic, Multi-Value Logic und Cer- 
tainty Factors, um nur vier davon zu nennen. 


„Wenn X wahr ist, .. .“ 


Sie ersetzen die Sicherheit von „WENN X 
WAHR IST, DANN IST Y WAHR" durch die vor- 
sichtige, statistische Schlußfolgerung „FALLS X 
IN 65% ALLER FÄLLE WAHR IST, DANN LIEGT 
DIE WAHRSCHEINLICHKEIT FÜR Y BEI 50 BIS 
70%", Das Merkwürdige ist, daß viele der aus- 
probierten Schemata scheinbar funktionieren. 
Eine mögliche Erklärung hierfür mag darin lie- 
gen, daß die Organisation von Wissen mehr 
Gewicht hat als dessen bloße Anhäufung. Die 
meisten Wissensbanken verbinden ihre Re- 
dundanz, um dem ES verschiedene Möglich- 
keiten der Entscheidungsfindung zu bieten. 
Die Wahrscheinlichkeitswerte dienen dabei 
nur als Kriterium, um zwischen zwei Bewertun- 
gen zu wählen. 

Es gibt bereits Programmpakete, die mit 
Wissensbanken arbeiten. Eines der wenigen, 
auch für den Heimcomputer-Enthusiasten er- 
schwingliche, ist HULK (Helps Uncover Latent 
Knowledge — wörtlich: Hilft latentes Wissen 
aufdecken), im Vertrieb von Brainstorm Com- 


puter Solutions. Es läuft auf dem Acorn B und 
den Torch-Computern. 

HULK ermöglicht dem Benutzer, eine Reihe 
von Entscheidungsregeln aufzustellen und zu 
testen, um sie später für Voraussagen und 
Klassifikationen zu nutzen. Sie können mit 
HULK, aus verschiedenen Fällen oder Beispie- 
len unterschiedlicher Bewertung, Muster und 
Regelmäßigkeiten bilden und diese für vorher- 
sagende Zwecke einsetzen. Nehmen wir an, 
ein Landwirt speichert detaillierte Messungen 
über Höhe, Blattfarbe usw. einiger hundert 
Zuckerrüben in einem Computer und fügt die 
Anzahl der vor der Ernte erkrankten und ge+ 
sunden Pflanzen hinzu. Das ES könnte nun Re- 
geln in bezug auf die charakteristischen Merk- 
male der Pflanzen und ihren Gesundheitszu- 
stand entwickeln. 


Erntevorhersage 


Nach diesen Regeln könnten später gefähr- 
dete Pflanzen identifiziert und Vorhersagen 
über die Ernte des nächsten Jahres verbessert 
werden. Der Landwirt muß diese Regeln nicht 
genau kennen, doch das System könnte sie auf 
die eingegebenen Daten der Pflanzen anwen- 
den. Anwendungsmöglichkeiten für HULK sind 
reichlich vorhanden. 

Das HULK-Paket besteht aus zwei Hauptpro- 
grammen: LOOK (Logical Organiser Of 
Knowledge — logischer Wissensorganisator) 
und LEAP (Likelihood Estimator And Predictor 
— Wahrscheinlichkeitsbewerter und Voraussa- 
ger). Diese ermöglichen dem Benutzer Regeln 
aufzustellen, die auf den Daten früherer Beob- 
achtungen beruhen, diese auf andere, unvoll- 
ständige Datensätze anzuwenden und so bei- 
spielsweise Vorhersagen über ein Fußball- 
Match am nächsten Spieltag zu treffen. Die Re- 
gelsammlung ist die Wissensbank, die wie- 
derum aus gesammelten Daten besteht. In 
HULK sind das Wahrscheinlichkeits-Entschei- 
dungsregeln, die für Klassifikationen und Vor- 
hersagen benutzt werden können. 

Zum Arbeiten mit LOOK benötigen Sie einen 
oder vorzugsweise zwei Datensätze (ein gro- 
ßer Datensatz kann hierfür in zwei kleinere 
aufgeteilt werden). Der eine ist der ‚Trainings- 
satz', um Regeln auszuprobieren, der andere 
ist der ‚Testsatz‘, um die Anwendbarkeit der 
Regeln bei unbekannten Daten zu bestätigen. 
Sobald die Daten erfaßt sind, legt LOOK Ihnen 
neugefundene Regeln einzeln zur Begutach- 
tung vor. Es prüft jede Regel anhand der Trai- 
ningsdaten und teilt Ihnen mit, um wieviel, falls 
überhaupt, sich der Vorhersageerfolg mit den 
bereits vorhandenen Regeln verbessert. Dar- 
aufhin empfiehlt es, die neue Regel zu über- 
nehmen oder zu verwerfen. Die endgültige 
Entscheidung liegt beim Anwender. 

LOOK ist kein richtiges Lernprogramm, eher 
eine Art Filter, der nur nützliche Mußmaßun- 
gen oder Aussagen durchläßt. 
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BASIC 81 


Überkauft 


Im vorhergehenden Teil dieser 1744 Serie beschrieben wir die Routine 
zur Berechnung eines Blattes. Die Routine dieser Folge beschließt die 


Blattschuß 


Runde des Spielers, analysiert die Karten und bereitet die 


Runde des Computers vor. 


ine universell anwendbare Routine, die das 
Blatt des Spielers auswertet und eine Va- 
riable, EF, entsprechend der ermittelten Blatt- 
kategorie setzt, ist vorhanden. Mit diesem Pro- 
gramm wird das Blatt des Spielers ausgespielt. 
In diesem Stadium des Spieles sind an den 
Spieler und die Bank jeweils zwei Karten aus- 
gegeben worden. Der Spieler kann entweder 
„sticken“ oder „twisten“, um näher an 2l 
Punkte heranzukommen, ohne zu überreizen. 


Auswertung der Karten 
Acorn B 


GOSUB 2500 

REM 

GSOSUEB 2700 

ON EF GOSUB 3500,3600,3700,3800,37 


RETURN 
REM 
GOoSUB 800:IF EF=2 OR EF=3 THEN RET 


GOSUB FÜO:PRINT"TWIST/STICK/DUUBLE 


AN&=GET# 
IF Aht="S" THEN GOSUB 2800:IF CS=0 
RETURN 
IF ANs="S" AND CS5=1 THEN 2700 
IF AN$<>"T" THEN 2700 
FL=0:PL=1:60SUB 1300 
GOSUB SO0:IF EF=1 THEN 2700 
RETURN 
REM 
CS=1:60SUB 800 
IF £TTCPL,23>17 AND TT{PL,23£22) DO 
R TT£PL,1)>=17 THEN CS=0:RETURN 
2325 GOSUB ?OU:PRINT"YOU CAN’T STICK UN 
DER 42" 
2830 FOR DL=1 TO S000:NEXT DL 
2340 RETURN 
3500 REM #%### LESS THAN 21 ###* 
3505 PV=1:PS=TTil,2):IF PS>21 THEN PS=T 
TER 
3510 GÜOSUB 700:PRINT"IFSS THAN 21": FOR 
DL=1i TO SO0:WEXT DL:REI URN 
3600 REM *#=* ROYAL PONTOON #**** 
3605 PV=4 
3&#10 GOSUB ?O0O:PRINT"ROTAL PONTOON":RET 
URN 
3700 REM 
3705 Pv=2 
s710 GOSUB 700 :PRINT"FONTOCN" RETURN 
3800 REM 
3805 FVv=ü 
3810 GOSUB ?O0:FRINT"BUST" RETURN 
3700 REM 
3705 PU=3 
a710 GOSUB 700 :PRINT"FIVE CARD TRICK":R 
ETURN 
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Um in diesem Spiel der Bank einen kleinen 
Vorteil zu verschaffen, wird die Regel aufge- 
stellt, daß Sie nicht sticken dürfen, wenn Ihr 
Blatt weniger als 17 Punkte zählt. 

Zeile 120 ruft das Twist/Stick-Unterpro- 
gramm von der Hauptschleife auf. Das Unter- 
programm ab Zeile 2600 ist nicht selbst für das 
Twisten oder Sticken zuständig, ruft aber ein 
anderes Unterprogramm in Zeile 2700 auf, das 
diese Arbeit durchführt. Bei der Rückkehr von 


Schneider CPC 


120 GOSUB 2800:REM tw 

ist etc 

Z&0U REM **** punter twist etc ##*#* 

Z&10 GOSUB 2700:REM do it! 

2620 ON ef GOSUB 3500 ,3500,3700,3800,3F0 

{n) 

2530 RETURN 

2700 REM *#*#** twist/stick/double *##%* 

2710 GOSUB S00:IF ef=2 OR ef=3 THEN RETU 

RN:REM check pontoon/royal pontoon 

2720 GOSUB ?7O0:PRINT "Twist/Stick/Double 
’ 

2725 an$="":WHILE an$="":an$=INKEY$:WEND 

2727? IF an$<>CHR#(13> THEN PRINT an 

27320 IF an$="s" THEN GOSUB 2800: IF cs=0 

THEN RETURN 

2733 IF an$="s" AND cs=1 THEN Z70O0:REM c 

an’t stick 

2750 IF an$<>"t" THEN Z?7O0:REM input err 

or 

27&0 fl=ü:pl=1:60SUB 1300:REM deal 

2770 GOSUB 800: IF ef=1 THEN 2700:REM aga 

in? 

2780 RETURN 

2800 REM ##**#* stick ##** 

2810 cs=1:50SUB BSO0N:REM evaluate 

2820 IF <tt(pl ,23>=17? AND tt{pl ,23<22)0R 

tt£pl,1>>=17 THEN cs=0:RETURN 

2825 GOSUB ?0O0:PEN red:PRINT "You can’t 

stick under 17" 

2330 FOR dI=1 TO 1000:NEXT dl 

2840 RETURN 

3500 REM **** less than ZI #*#* 

3505 pv=l:ps=tt(1,23:IF ps>21 THEN ps=tt 

1,19 

3510 GOSUB 700 :PRINT "Less than 21":RETU 

RN 

36&00 REM #*#** royal pontoon #**#%* 

3805 pv=4 

3610 GOSUB ?7ÜG:FRINT "Roral pantoon":RET 

URN 

3700 REM #*#* pontoon **** 

3705 pv=2 

3710 GOSUB 700 :PRINT "Pontoon" :RETURN 

3800 REM *%#%#* bust ##*#* 

3205 pv=Ü 

3810 GOSUB ?7OO:PRINT "Bust" RETURN 

s?00 REM *#*#* five card trick ##*# 

3705 pu=3 

3710 GOSUE 7OG:FRINT "Five card trick": 

ETURN 


Blatt auswerten 


Eingabe 
Twist:Stick 
ANS$S 


Neue Karte 
ausgeben 


Blatt berechnen 


Ist die 
Punktezahl 
<21? 


Das Flußdiagramm 
zeigt, wie der Pro- 
grammteil des Spielers 
kontrolliert wird. Ein 
Verlassen der Kontroll- 
struktur ist nur unter 
drei Bedingungen mög- 
lich: wenn die Karten 
des Spielers ein As und 
eine Zehn oder ein As 
und eine Bilderkarte 
zeigen, der Spieler die 
Option Stick wählt oder 
das Blatt überreizt 
wird. 


Meldung 
ausgeben 


Ist die 
Punktezahl 
<17? 


diesem Unterprogramm ist Ihr Blatt komplett 
und EF entsprechend einer der fünf möglichen 
Blattkategorien gesetzt. Mit dem ON. ..GO- 
SUB-Befehl verzweigt das Programm unter Be- 
rücksichtigung des Wertes in EF in eine wei- 
tere Unterroutine. Diese gibt den Wert des 
Blattes aus und setzt die Variable PV. Diese Va- 
rlable wird später, bei der Auswertung des 
Blattes der Bank, benutzt, um den Wert Ihres 
Kartenblattes zu speichern. 

Das Twist/Stick-Unterprogramm beginnt bei 
Zeile 2700 mit dem Aufruf der Berechnungs- 
routine. Die beiden bisher ausgegebenen Kar- 
ten werden auf den Wert (As und Bilderkarte 
oder As und Zehn) überprüft. Wenn keine die- 
ser Kombinationen vorliegt, fordert das Pro- 
gramm Sie auf, Soder T zu tippen. 

Durch die Verwendung von GET/INKEYS 
GETS anstelle von INPUT brauchen Sie nur die 
T- oder S-Taste zu drücken, ohne die Eingabe 
mit RETURN abzuschließen. Der Nachteil die- 
ser Abfrage ist, daß mit GET/INKEYS/GETS 


Sinclair Spectrum 

120 60 SUB 2800: REM TWIST ETC 

2S00>REM **** PUNTER TWIST ETC EVALUATE 
“ur 

2&10 60 SUB 2700: REM DO IT! 

2520 60 SUB <EF*100)+3400 

2630 RETURN 

2700 REM #*** TWIST/STICK/DOUBLE ##*# 
2710 GO SUB 3800: IF EF=2 OR EF=3 THEN R 
ETURN : REM CHECK PONTOON/ROYAL FONTOON 
2720 GO SUB 700: PRINT "TWIST/STICK/DOUB 
LET 

2725 LET A$=INKEY$: IF A$="" THEN 
2725 

2727 IF A$<>CHR& 13 THEN PRINT A$ 
2730 IF A$="S" THEN GO SUB 2800: 
0 THEN RETURN 

2733 IF A$="S" AND CS=1 THEN GO TO 2700 
: REM CAN’T STICK 

2750 IF At<>"T" THEN 60 TO 2700: REM IN 
PUT ERROR 

27&0 LET FL=0: LET PL=1: 60 SUB 1300: RE 

M DEAL 

2770 GO SUB 800: 
0: REM AGAIN? 
2780 RETURN 

2800 REM #*** STICK *#** 

2810 LET CS=1: GO SUB 800: REM EVALUATE 
2820 IF <TCPL,2>>=17 AND T<PL,2)<22) OR 
T<PL,1)>=17 THEN LET CS=0: RETURN 

2825 GO SUB 700: PRINT FLASH 1;5"YOu CAN 
‘T STICK UNDER 17!" 

2830 FOR L=1 TO 300: NEXT L 

2840 RETURN 

3500 REM LESS THAN 21 

3505 LET FPV=1: LET PS=T(1,2): IF PsS>21 T 
HEN LET PS=Ti1,1) 

3510 GO SUB 700: PRINT "LESS THAN 21": R 
ETURN 

3800 REM **** ROYAL PONTOON *=** 

3605 LET PV=4 

3610 GO SUB 700: PRINT "ROYAL PONTOON": 
RETURN 

3700 REM **** PONTOON #**x* 

3705 LET PV=2 

3710 GO SUB 700: FRINT "PONTOON": RETURN 


so TO 


IF CS= 


IF EF=1 THEN GO TO 270 


3300 REM #*** BUST **** 

3805 LET FV=0 

se10 GO SUE 700: PRINT "BUST": RETURN 
3700 REM #*** FIVE CARD TRICK *#** 

3705 LET PV=3 

s710 GO SUB 700: PRINT "FIVE CARD TRICK" 
ı RETURN 
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keine Eingabeaufforderung auf dem Bild- 
schirm erscheint. Wir müssen also eine Zeile 
für die Darstellung hinzufügen. 

Wenn Sie an dieser Stelle S für sticken ein- 
geben, prüft das Programm, ob das Blatt weni- 
ger als 17 Punkte zählt. Der Programmteil ab 
Zeile 2800 benutzt dafür das Ergebnis der Aus- 
wertungsroutine und gibt eine Meldung aus, 
wenn Ihre Punktezahl geringer als 17 ist. Die 
Variable CS wird in diesem Fall auf Eins ge- 
setzt. Bei der Rückkehr in die Twist/Stick- 
Routine entscheidet der Wert in CS, ob Sie stik- 
ken dürfen und die Routine damit beendet 
werden kann oder nicht. Falls Ihre Eingabe 
nicht korrekt war, verzweigt das Programm 
wieder zum Beginn der Routine. 

Bei Anwahl der Twist Option wird Ihrem Blatt 
eine weitere Karte zugeteilt und die neue 
Punktezahl berechnet. Wenn Ihr Blatt mit der 
neuen Karte noch unter 21 Punkten liegt (si- 
gnalisiert durch EF=1), beginnt die Routine 
von vorn und fragt nach der nächsten Eingabe. 


Commodore 64 


120 GOSUB 28500:REM TWIST ETC 

2600 REM #***#* PUNTER TWIST ETC EVALUATE 
zr* 

2610 GOSUBZ700:REM DO IT! 

2520 ON EF GOSUB3500,3%00,3700,3800 ,3900 


2630 RETURN 

2700 REM ##%** TWIST/STICK/DOUBLE ##** 
2710 GOSUBSOO:IF EF=2 OR EF=3 THEN RETUR 
N:REM CHECK PONTOON/ROYALPONTOON 

2720 GOSUB?OO :FRINT"TWIST/STICK/DOUBLE " 
2725 GET AN$:IF AN$="" THEN 2725 

2727? IF AN$<>CHR$(C13) THEN PRINT AN$ 
2730 IF AN$="S" THEN GOSUB 2800:1IF CS=0 
THEN RETURN 

2733 IF AN&="S"AND CS=1 THEN 2700:REM CA 
N’T STICK 

2750 IF AN$<>"T" THEN 2700 .REM INFUT ERR 
OR 

2760 FL=0:PL=1:GOSUB1300 :REM DEAL 

2770 GOSUBSOO:IF EF=1 THEN 2700:REM AGAI 
N? 

2780 RETURN 

2800 REM ***#* STICK »x*x* 

2810 CS=1:60SUB800:REM EVALUATE 

2820 IF <TT£PL,23>=17? AND TTCPL,23<22)0R 
TT£PL,1>>=17 THEN C$=0 :RETURN 

2825 GOSUB?00 :PRINTCHR&(28) ; "YOU CAN’T S 

TICK UNDER 17" 

2830 FOR bDL=1 TO 1000:NEXT DL 

2840 RETURN 

3500 REM ***# LESS THAN 21 ##** 

3505 PV=1:PS=TT(1,2):IF PS>Z1THEN PS=TT{ 
1,19 

3510 GOSUB?7OO:PRINT"LESS THAN 21" :RETURN 


3500 REM **#* ROYAL PONTOON ##** 

3605 Pu=4 

Sssll GOSUB700 :PRINT"ROYAL PONTOON" :RETUR 
N 

3700 REM ##%* 
3705 PV=2 
s?710 GOSUB?O0 : PRINT" PONTOON" :RETURN 

3800 REM ***# BUST #*** 

3805 PV=0 

3810 GOSUB?00 :PRINT"BUST" :RETURN 

S3r00 REM **** FIVE CARD TRICK ##** 

3705 PvV=3 

3710 GOSUB700:PRINT"FIVE CARD TRICK" :RET 
URN 


PONTOON ##%** 
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Die Steuersoftware ist in ‚FORTH‘ geschrieben, das Betriebs- 
system basiert auf ‚C‘ und das Handbuch ist japanisch 


Die Qual 
der Wahl 


Für die meisten Hobby-Anwender 
reicht BASIC zur Programment- 
wicklung völlig aus. In Sonderfäl- 
len braucht man jedoch besser 
angepaßte Sprachen. Eine gründ- 
liche Analyse des Vorhabens 
sollte die Qual der Wahl jedoch 
lindern können. 


is vor kurzem stand dem Heimcomputer- 

Freund ausschließlich BASIC oder Maschi- 
nensprache zur Verfügung. Heute sind dage- 
gen fast alle verbreiteten Sprachen auch für 
die kleinsten Rechner erhältlich, die gesamte 
Palette steht beim IBM-Kompatiblen oder an- 
deren MS-DOS-Rechnern zur Verfügung. Com- 
piler und Interpreter können recht teuer sein, 
daher arbeiten nur wenige Anwender mit mehr 
als drei Sprachen. 

Effektivität in bezug auf Speichergröße-und 
die Arbeitsgeschwindigkeit sind die wichtig- 
sten Faktoren. Das gilt besonders bei Program- 
men, die mit der Außenwelt kommunizieren 
sollen. Manche Programme wären in BASIC so 
schwierig zu erstellen, daß es leichter ist, eine 
neue, besser geeignete Sprache zu lernen und 
das Programm damit zu entwickeln. Ein Pro- 


Sprache: BASIC 

Vorteile: Leicht erlernbar und einfach in der 
Anwendung, weit verbreitet. Preiswert. Vielsei- 
tige Arithmetik-Funktionen. Komfortable 
Stringverarbeitung. 

Nachteile: In vielen Versionen kaum Möglich- 
keiten für Modulprogrammierung und Steuer- 
strukturen. Keine Norm. Programmausführung 
langsam. Schlechtes File-Handling. Einge- 
schränkte Zahl von Datentypen und -strukturen. 
Programme undurchsichtig. 

Anwendung: Kurze, einfache Programme mit 
Berechnungen oder Stringverarbeitung. 


Sprache: LOGO 

Vorteile: Solide mathematische Grundlage, 
leicht zu lernen. Turtle-Grafik. Gute Möglich- 
keiten zur Listenverarbeitung und für modula- 
res Programmieren, viele Datentypen und 
Strukturen. Preiswert. 

Nachteile: Auf höherer Ebene ist die Pro- 
grammierung schwierig. Viele nicht-kompati- 
ble Versionen. Ausführung langsam. 
Anwendung: Grafik, Listenverarbeitung, Ler- 
nen von Mathematik und Einführung in höhere 
Programmkonzepte. 


Sprache: PASCAL 

Vorteile: Gut strukturiert. Viele Datentypen. 
Weitgehend standardisiert. Verbreitet. Einfache 
Programmierung. 

Nachteile: Ein/Ausgabe nicht klar definiert, 
File-Handling unbefriedigend. 

Anwendung: Einüben guter Programmiertech- 
nik. Allgemeine Aufgaben von beschränktem 
Umfang. 


Sprache: FORTH 
Vorteile: Schnelle Verarbeitung, vom Anwen- 


gramm zur on-line-Verarbeitung von Lagerda- 
teien wäre in COBOL durch den Einsatz inde- 
xierter Dateien sehr einfach zu erstellen. In 
BASIC müßte dagegen mit sequentiellen Da- 
teien oder einem Hashing-Algorithmus und 
Random Access Files gearbeitet werden. 

Bedienerfreundliche, leicht erlernbare Spra- 
chen bereiten bei größerem Programmumfang 
oft Probleme. Hier kommt es darauf an, daß 
sich das Programm in selbständige Module 
zerlegen läßt, die unabhängig voneinander 
programmiert werden können. 

Einige Sprachen, etwa COBOL und FOR- 
TRAN, sind gemäß allgemeingültiger Richtli- 
nien fest definiert; die Anpassung an neue 
Hardware- und Verarbeitungstechniken ist 
dann recht mühsam und langwierig. Dafür er- 
fordert das auf einem Rechner erstellte Pro- 
gramm nur eine erneute Compilierung und nur 
wenige Änderungen, bis es auf dem anderen 
Computer läuft. 

Sprachen wie PASCAL und C haben nur eine 
Art de facto-Standard, der von den Erfindern 
festgelegt wurde. Die meisten Versionen die- 
ser Sprachen entsprechen diesem Standard 


der auszubauen. Gute Strukturierung. 
Nachteile: Das Niveau ist oft zu niedrig. 
Schwer verständlich. Viele verschiedene 
Versionen. 

Anwendung: Programmierung auf maschinen- 
nahem Niveau, speziell bei der Hardware- 
steuerung. 


Sprache: FORTRAN 

Vorteile: Standardisiert. Umfangreiche Soft- 
ware-Bibliothek. Sehr viele Funktionen. 
Nachteile: Altmodisch. Unbefriedigende 
Strukturierung. Programme oft unverständlich. 
Festgelegte Programmgestaltung. 
Anwendung: Allgemeine wissenschaftliche, 
mathematische Programme und Anwendungen 
aus dem Produktionsbereich. 


Sprache: COBOL 

Vorteile: Standardisiert, für viele Rechner. 
Leicht verständlich. Gutes File-Handling. 
Nachteile: Schwer zu erlernen. Compiler sind 
umfangreich und teuer. Schlecht strukturiert, 
geringe Zahl von Datentypen. 

Anwendung: Kommerzielle Daten- 
verarbeitung. 


Sprache: C 

Vorteile: Viele Datentypen und Strukturen. 
Gute modulare Struktur. Einfacher Zugang zur 
Hardware. Programme sind schnell. 
Nachteile: Programme unübersichtlich. Für 
ernsthafte Anwendungen ist das Niveau zu 
niedrig. Nicht völlig standardisiert. 
Anwendung: Systemsoftware als Ersatz für 
Assembler. Für besonders schnelle 
Anwendungen. 

Sprache: LISP 

Vorteile: Gute Listenverarbeitung, vielseitige 


zwar, bei PASCAL sind jedoch Ein- und Ausga- 
beprozeduren nicht fest definiert; der Anwen- 
der hat also freie Bahn für Zusätze und Ände- 
rungen. Die entstandenen Programme sind na- 
türlich nicht problemlos übertragbar. 

Ein weiterer Faktor ist das Übersetzungspro- 
gramm. Interpreter sind im allgemeinen einfa- 
cher zu bedienen und eignen sich besser für 
die Programmentwicklung, dafür sind sie aber 
auch langsamer beim Programmablauf. Com- 
piler dagegen sind schwierig anzuwenden, 
das Endprodukt arbeitet dafür effektiver. Die 
Unterschiede nehmen allerdings durch die 
Entwicklung von Debugger-Programmen und 
komfortablen Compilern zunehmend ab. 

Einige Sprachen arbeiten durch spezielle 
Hardware-Neuerungen sehr viel schneller. So 
wurde viel Aufwand in die Entwicklung eines 
Prozessors gesteckt, der direkt in FORTH ar- 
beiten kann. 

Der Hauptfaktor bleibt aber immer die An- 
wendung, für die eine Computersprache ein- 
gesetzt werden soll. Wir möchten Ihnen hier 
die wichtigsten Sprachen mit ihren Vorzügen 
und Schwachpunkten vorstellen. 


mathematische Funktionen. Umfangreiche Soft- 
ware und Hilfsprogramme. Bei größeren Rech- 
nern weit verbreitet. 

Nachteile: Schwer erlernbar, schwer 
anzuwenden. 

Anwendung: Künstliche Intelligenz und allge- 
meine Listenverarbeitung. 


Sprache: PROLOG 

Vorteile: Gute mathematische Basis. Läßt sich‘ 
einfach einsetzen. Steht dem menschlichen 
Denken nahe. 

Nachteile: Keine rein relationale Sprache, es 
gibt verfahrensorientierte Ansätze. 
Anwendung: Künstliche Intelligenz, Daten- 
banksysteme. 


Sprache: Assembler 
Vorteile: Volle Kontrolle über alle Rechner- 
komponenten. Effektivste Programmiersprache. 
Nachteile: Keinerlei Norm. Schwer zu erlernen 
und anzuwenden. 

Anwendung: Höchste Effizienz, aber nur, 
wenn sonst „nichts geht“. 


Sprachgefühl 


In der Tabelle ist eine Reihe von Anwendungen aufgeführt. Die 
passenden Sprachen stehen nach Eignung geordnet rechts daneben. 


Sprachen 


FORTRAN, BASIC, PASCAL 
COBOL, PASCAL, BASIC 


Anwendung 


Statistische Analysen 
Lagerverwaltung 


Robotersteuerung FORTH, C, Assembler 
Adventure-Spiele PROLOG, C, BASIC 
Expertensysteme LISP, PROLOG, LOGO 
Ausbildung LOGO, PROLOG, PASCAL 
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Anders als seine Vor- 
läufer, die für wissen- 
schaftliche oder militä- 
rische Zwecke konstru- 
iert wurden, war der 
LEO 1 nur für einfach- 
ste Arithmetik gedacht, 
konnte aber viele tau- 
send Geschäftsvor- 
gänge pro Tag 
bearbeiten. 


Die traditionsreichen 
Teehandlungen der 
englischen Firma Lyons 
& Co. gaben äußerlich 
eigentlich nicht das 
passende Milieu für 
den ersten kommerziel- 
len Computereinsatz 
ab. Genau dieses Ver- 
triebsgeschäft mit sehr 
vielen kleinen Umsät- 
zen war aber prädesti- 
niert für die Einführung 
der elektronischen Da- 
tenverarbeitung. 


Tee oder Computer 


Der kommerzielle Einsatz des Computers begann auf der britischen 
Insel ausgerechnet in einem Teegeschäft. 


A: einem ungewöhnlichen Ort, nämlich in 
einer englischen Teehandlung, fiel 1947 
die bahnbrechende Entscheidung, einen 
Rechner für die Automatisierung von Büroar- 
beiten zu entwickeln. Diesen Entschluß wagte 
das Unternehmen ‚]J. Lyons Ltd.‘, dessen La- 
denkette internationalen Ruf genoß. Kenn- 
zeichnend für ein derartiges Geschäft sind 
zahllose kleine Vorgänge, und um die Abwick- 
lung überhaupt rentabel zu gestalten, muß der 
zugehörige Papierkram möglichst effizient be- 
arbeitet werden. 

Die Firma hatte schon eine gewisse Tradi- 
tion in der Innovation der Bürotechnik: Bereits 
1896 bekamen die Läden Rechenmaschinen, 
und in den dreißiger Jahren experimentierte 


Lyons mit Mikrofilm-Dokumentationsverfahren. 
Damals wurde auch erstmals ein eigenes Büro- 
Forschungszentrum zur Untersuchung von Ar- 
beitsmethoden gegründet. 

Das Unternehmen schickte des öfteren Mit- 
arbeiter aus, die sich nach interessanten 
neuen Entwicklungen umsahen. 1947 kamen 
zwei Lyons-Mitarbeiter in die USA, um in den 
geheimnisvollen „Elektronengehirnen" herum- 
zuschnüffeln. Sie kehrten mit der Erkenntnis 
zurück, daß sie sich die Reise hätten sparen 
können, da auch vor ihrer Haustür, an der Uni- 
versität Cambridge, Computer entstanden. 

Der Lyons-Vorstand ließ daraufhin durch 
eine Untersuchung klären, ob sich die Ent- 
wicklung eines eigenen Rechners für die 
Firma lohnen würde — den Entwicklungsko- 
sten von £ 100 000 stand eine jährliche Einspa- 
rung von £ 50 000 gegenüber. Folgerichtig gab 
Lyons im Oktober 1947 den Startschuß. 


Primzahlen-Tabelle 


1949 war es dann soweit, der Computer bewäl- 
tigte eine akademische Aufgabe: die Erstel- 
lung einer Primzahlen-Tabelle. 

Lyons analysierte derweil die Aufgaben, für 
die der neue Rechner gedacht war, und skiz- 
zierte die erforderlichen Programmabläufe. 
Diese Studien lieferten die Basis für spätere 
Software und für die Hardware: Es zeigte sich 
bald, daß ein Computer für den Büroeinsatz an- 
ders aussehen mußte als einer für die Wissen- 
schaft. Während der Computer nach Eingabe 
von wenigen Zahlen einen komplizierten For- 
melsalat langwierig numerisch auszuwerten 
hatte, sollte der Bürorechner praktisch das Ge- 
genteil tun — bei minimalem mathematischem 
Aufwand, beschränkt auf die Grundrechen- 
arten, waren viele Daten zu bewältigen. 

Am 9. Februar 1954 trat LEO (Lyons Electro- 
nic Office) erstmals in Aktion und erledigte die 
wöchentliche Lohnabrechnung für die 1700 
Lyons-Mitarbeiter. Einen Vorgang, für den ein 
Angestellter zuvor acht Minuten gebraucht 
hatte, schaffte LEO in eineinhalb Sekunden. 

LEO erwies sich als großer Erfolg, so daß 
nicht nur Lyons, sondern auch andere Unter- 
nehmen bald an diesem Gerät interessiert wa- 
ren. Lyons gründete eine Tochtergesellschaft 
namens ‚LEO Computers‘, um das vorhandene 
Know-how auszuschlachten. Sie erzielte her- 
vorragende Geschäftsergebnisse, indem sie 
eine Reihe verbesserter LEO-Versionen auf 
den Markt brachte. 


Sprunghafte 


Routine 


Programme, die mit Subroutinen arbeiten, sind flexibel, lassen sich 
leicht ändern und machen die Fehlersuche einfach. In dieser Folge 
untersuchen wir die JSR-Anweisung des 68000 und zeigen, wie sie 


eingesetzt wird. 


ir wollen den Befehl JSR (Sprung zum Un- 

terprogramm) zunächst an einem einfa- 
chen Beispiel erläutern. Nehmen wir ein Pro- 
gramm, das ein Array von zehn Wörtern nach 
der Formel 


TARRAY[I] := ARRAY[I] "2 + 20*ARRAY[I] 


umwandelt und die Summe aller Elemente von 
TARRAY in die Speicherstelle SUM stellt. Die 
Formel sieht zwar kompliziert aus, besagt aber 
nur: „Quadriere jedes Arrayelement einzeln, 
addiere darauf das Zwanzigfache des Ele- 
ments und speichere das Ergebnis in dem ent- 
sprechenden Element von TARRAY.“ 

Das erste Programmlisting zeigt, wie der 
68000 die Umwandlung erledigt. Um feststel- 
len zu können, ob das Programm richtig arbei- 
tet, laden wir die Testdaten (1 bis 10) in ARRAY 
und prüfen TARRAY. Nach Ablauf des Pro- 
gramms müssen die Werte von TARRAY 21, 
44,69,96 etc. betragen. Beachten Sie, daß nicht 
festgelegt wurde, für welchen Zahlenbereich 
ARRAY gültig ist. Bei einem fehlerlosen Pro- 
gramm sollten die Umwandlungsergebnisse 
und die Summe in eine Wortlänge (16 Bits) 
passen. 

Unser Beispiel ist natürlich nicht der einzige 
Weg, diese Aufgabe zu lösen. Hier kommen 
Programmstruktur und die Bedeutung der Sub- 
routine, speziell in der Assemblersprache, ins 
Spiel. 

Zwar gibt es viele Möglichkeiten, Pro- 
gramme zu strukturieren, doch arbeiten fast 
alle „sauberen Programme" (d.h. Programme, 
die Sie auch später noch verstehen) mit der 
„funktionellen Aufsplittung“. Dabei wird ein 
Programm in Bereiche aufgeteilt, die be- 
stimmte Funktionen ausführen. Die Funktionen 
lassen sich mit Begriffen wie „Berechnen‘, 
„Umstellen“ oder „Prüfen“ beschreiben. In 
Hochsprachen heißen diese Codebereiche 
„Prozeduren“ und die dorthin übergebenen 
Daten „Parameter“. 

Der Assemblercodierung steht nur die mo- 
Aulare Struktur der Subroutine zur Verfügung. 
Auf dem 68000 wird sie so aufgerufen: 


JSR SUBR 


Dabei ändert sich der Programmfluß durch 
einen Sprung auf den Codebereich mit dem 
Label SUBR. Dieser Code wird ausgeführt, bis 
er auf den Befehl RTS trifft. An dieser Stelle 
verzweigt der Programmfluß zu der Anwei- 
sung, die dem ]JSR-Befehl folgt (RTS bedeutet 
„Rückkehr aus dem Unterprogramm"). 

Doch zurück zu unserem Programmebeispiel. 
Statt „in einem Stück" zu quadrieren, multipli- 
zieren und addieren, läßt sich dieser Vorgang 
auch abkoppeln und in einer Subroutine unter- 
bringen. Das Programmlisting zwei zeigt den 
neuen Aufbau. Dabei steht in Zeile 6 der Aufruf 
der Subroutine CALC, und die früheren Zeilen 
6 bis 9 befinden sich in Zeile 12 bis 15 — mit 
einem RTS am Ende. 


Beliebig oft CALC 


Das bringt den Vorteil, daß ein klar abgegrenz- 
ter Codebereich (Zeile 12 bis 16) einen exakt 
definierten Ablauf mit den Daten ausführt, die 
über den Parameter D1l übergeben wurden. 
Sie haben nicht nur einen übersichtlicheren 
Programmaufbau, sondern können die Subrou- 
tine CALC auch sooft und von wo aus Sie wol- 
len aufrufen. Die Ergebnisse der in Dl überge- 
benen Daten werden in D2 zurückgegeben. 

Beim Anlegen von Subroutinen sollten Sie, 
besonders bei Mehrplatzanwendungen, darauf 
achten, daß nur ein Einsprungspunkt und ein 
Rücksprung existiert. Auch sollten Sie vermei- 
den, von der Subroutine aus das Hauptmodul 
aufzurufen und weiterhin nicht zu viele be- 
dingte Rücksprünge anlegen, da dies die Feh- 
lersuche' sehr erschwert. 

Subroutinen fördern nicht nur einen guten 
Programmaufbau, sondern bieten auch die 
Möglichkeit, Speicherplatz zu sparen. (So muß 
der Code von CALC nicht für jeden Einsatz 
wiederholt werden.) 

Wenn Sie CALC an mehreren Punkten des 
Programms aufrufen, brauchen Sie dann bei 
einer Änderung (beispielsweise der Umwand- 
lung) lediglich einen Programmbereich zu 
ändern. 

Nehmen wir an, die Umformung sollte 


D2 = D17220*D1 
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Anmerkungen zum Programm: 

Die Zeilen 1 bis 4 initialisieren die Programmvariablen. In 
Zeile 5 werden die Elemente von ARRAY mit indirekter 
Adressierung und Nach-Inkrementierung in DI geladen. 
Zeile 6 legt eine Kopie in D2 an, damit ARRAY nicht noch- 
mals angesprochen werden muß. Die Zeilen 7 und 8 bilden 
mit dem vorzeichenbehafteten Multiplikationsbefehl MULS 
die beiden Umformungskomponenten D1 und D2, die dann 
von Zeile 9 addiert werden. 

Zeile 10 legt das Ergebnis in dem entsprechenden Ele- 
ment von TARRAY ab, und Zeile 11 addiert das Ergebnis zu 
der Gesamtsumme SUM. Zeile 12 und 13 steuern die 
Schleife, damit nur zehn Elemente umgewandelt werden. 
Das Programm ist eigentlich eine FOR... NEXT-Schleife 
zwischen den Zeilen 5 und 12/13, deren Schleifenzähler in 
Zeile 1 gesetzt wird. 


Programmbeispiel Eins 


* Umformung von ARRAY in TARRAY mit der Formel 
* TARRAYII] := ARRAY[I] "2 + 20*ARRAY[I] 
* Beide Arrays enthalten zehn Elemente 
* Folgende Register werden eingesetzt: 
* AO zeigt auf ARRAY 
A1 zeigt auf TARRAY 
DO ist ein Schleifenzähler 
D1 ist ein Zwischenspeicher 
D2 ist eine Kopie von ARRAY[I] 


* Schleifenzähler initialisieren 

* den ersten Pointer setzen 

* den zweiten Pointer setzen 

* SUM auf Null stellen 

* ARRAY[I] holen 

* und kopieren 

* Quadrat von ARRAY[I] bilden 

* D1 wird das 20fache von 
ARRAY[I] 

* Komponenten addieren 

* in TARRAY[I] speichern 

* Gesamtsumme aktualisieren 

* Schleifenzähler dekrementieren 

* wiederholen, falls nicht fertig 

* Ende der Routine, zurück zum 


Programmbeispiel Zwei 


* Subroutine zur Berechnung 
aufrufen 
* neuer Arraywert 


* Subroutine zur Berechnung 
von D1°2+20*D1 

* und Rücksprung mit dem 
Ergebnis in D2 
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Monitor 


Programm 


* Rücksprung zum aufrufenden 


lauten, dann genügt in der neuen CALC-Rou- 
tine nur die Änderung der Zeile 15 in 


SUB D1,D2 


Die Programme werden dadurch nicht nur fle- 
xibler, sondern lassen sich auch leichter von 
Fehlern befreien. So könnten Sie CALC bei- 
spielsweise mit jeder Art von Werten (in D1 
übergeben) testen, die (bei Rückgabe in D2) 
keine Probleme im Hauptprogramm verursa- 
chen. Die Subroutine hat nur einen Ein- 
sprungspunkt (bei dem Adreßlabel CALC) 
und eine Rücksprunganweisung (RTS). 

Sie sehen, daß die Kriterien Flexibilität, An- 
passungsfähigkeit und Zuverlässigkeit erfüllt 
sind. Subroutinen haben jedoch auch Nach- 
teile. Wir müssen uns dazu (und auch für den 
Mechanismus der Parameterübergabe) die 
Stackvorgänge des 68000 genauer ansehen. 


„Nebenwirkungen“ 


Bei der Ausführung von ]JSR muß die Adresse 
des Befehls direkt hinter JSR (die Rücksprung- 
verbindung) gespeichert werden. ]JSR schiebt 
diese Adresse daher (als die vier Bytes einer 
Langwortadresse) auf den Stack, während der 
Programmzähler (PC) mit der Adresse der 
Subroutine geladen wird. Wenn der Ablauf der 
Subroutine nun auf ein RTS trifft, wird die 
Rücksprungadresse wieder vom Stack gezo- 
gen und der PC damit geladen. Auf diese 
Weise geht die Programmausführung nach 
Beendigung der Subroutine weiter. Von all die- 


sen Vorgängen merkt der Anwender nichts, da 
der 68000 sie automatisch ausführt. Achten Sie 
auf folgende „Nebenwirkungen“. 

Zunächst müssen Sie sicherstellen, daß der 
Stackpointer, SP (auf dem 68000 das Register 
AT), richtig gesetzt is, da man sonst Pro- 
grammcode oder Daten überschreibt oder gar 
Hardwareadressen ändert. Dies geschieht nor- 
malerweise mit: 


STACK EQU $1000 

* Stack auf 1000 hex setzen 
BEGIN LEA STACK,SP 

* Stackpointer initialisieren 


Der Stack „wächst“ nun von 1000 aus in Rich- 
tung Null (jeder ‚PUSH‘ ist demnach eine Vor- 
Dekrementierung). 

Sie müssen aber auch darauf achten, daß 
der Stack nicht zu groß wird. Hier können Sie 
nur schätzen, wieviel Stackkapazität nötig ist — 
und dies ist manchmal sehr schwierig. Bei kur- 
zen Programmen mit einfachen Subroutinen- 
aufrufen ergibt eine Untersuchung des Codes 
und ein zusätzlicher Sicherheitsfaktor oft schon 
die richtigen Werte. Bei verschachtelten Sub- 
routinen oder Rekursionen kann die Berech- 
nung der Stackgröße so schwierig werden, daß 
Sie sich nur durch Ausprobieren an die richti- 
gen Werte herantasten können. 

In der nächsten Folge geben wir weitere 
Beispiele für Subroutinenaufrufe und konzen- 
trieren uns besonders auf die Datenübergabe 
an und von Subroutinen. Hier bietet der 68000 
einige interessante Befehle. 


Fachwörter von A bis Z 


Thermal Printer = Thermodrucker 
Der Druckknopf eines Thermodruk- 
kers enthält eine Matrixanordnung 
von kleinen Heizwiderständen, die 
das Schriftbild durch Wärmeeinwir- 
kung auf ‚Thermopapier‘ erzeugen. 
Dessen wachsartige Beschichtung 
wird beim Schmelzen transparent 
und läßt die darunter befindliche 
Farbe sichtbar werden. 

Thermodrucker finden im Heim- 
computerbereich Einsatz, da sie 
preiswert, sehr leise und ziemlich 
schnell sind. 


Threaded List = Verknüpfte Liste 
Zusatzinformationen an Datenfeldern 
sind nützliche Maßnahmen bei Da- 
tenbanksystemen oder Sprachkon- 
zepten für die ‚Künstliche Intelli- 
genz‘, so daß der Rechner über 
diese ‚Fäden‘ (threads) dann Quer- 
verbindungen folgen kann. Aus 
einer derart präparierten Liste läßt 
sich leicht eine bestimmte Auswahl 
von Datensätzen zusammenstellen. 


Time Sharing = Timesharing 
Dieses Verfahren für die Zuteilung 
von CPU-Zeit bei Mehrplatzsystemen 
arbeitet mit festen Zeitanteilen (Time 
Slices = ‚Zeitscheiben‘) im Millise- 
kundenbereich, die den einzelnen 
Teilnehmern im Wechsel zugewie- 
sen werden. Bei anderen Multipro- 
gramming-Techniken werden die 
Zeitscheiben dagegen unter Berück- 
sichtigung diverser Gesichtspunkte 
individuell bemessen. 

Der Timesharing-Betrieb einer 
größeren Anlage ist kostengünstiger 
als das Arbeiten mit vielen kleinen 
Einzelsystemen, da die Auslastung 
von CPU und Peripherie besser ist. 
Ein Nachteil besteht darin, daß 
gleich eine sehr aufwendige Ma- 
schine angeschafft werden muß, die 
eine Vielzahl von Terminals bedie- 
nen kann und dabei so schnell ist, 
daß für die Benutzer keine störenden 
Wartezeiten in Erscheinung treten. 


Top-Down Development = 
Top-Down-Programmierung 

Bei diesem Vorgehen wird ein stu- 
fenweise immer feiner gegliederter 
Entwurf erstellt — es entsteht eine 


Hier werden einzelne Fach- 
ausdrücke eingehend behandelt. 
Da bei der Kommunikation mit 
dem Computer meist die 
englische Sprache verwendet 
wird, werden hier zunächst die 
englischen Begriffe genannt, 
dann die deutsche Übersetzung. 
In den Gesamtindex werden 
sowohl deutsche als auch 
englische Stichwörter aufge- 
nommen, damit Sie es leichter 
haben, das von Ihnen 
Gesuchte zu finden. 


gen usw. Das Unterteilen der Aufga- 
benstellung in ihre Details führt 

schließlich zur Formulierung der An- 
weisungen für die Antriebsmotoren. 


Trace Programm = Tracer 

Ein Tracer oder ‚Ablaufverfolger‘ ist 
eine Hilfsroutine zum schrittweisen 
Protokollieren der Ausführung eines 
Programms, um die Fehlersuche zu 
unterstützen. Je nach Betriebssystem 
sind mehr oder weniger komfortable 
Tracer verfügbar, auch für Heimcom- 
puter, wobei als Ein-/Ausbefehle 
häufig TRON (TRace ON) bzw. TROFF 


Thermodrucker erfreuen sich trotz einiger systembedingter Nachteile im 
Heimcomputerbereich großer Beliebtheit. Sie sind billig in der Anschaffung, 
leise und zuverlässig, brauchen aber teures Spezialpapier und bieten keine 


hohe Druckqualität. 


‚Baumstruktur‘. Erst wenn die Ver- 
ästelung zu einfachen Teilaufgaben 
geführt hat, beginnt die Codierung. 
Wenn Sie ein Programm schreiben 
wollen, das einen Roboter eine Tüte 
Milch aus dem Laden um die Ecke 
holen läßt, besteht die Gesamtauf- 
gabe aus ‚Hingehen, Einkaufen, Zu- 
rückkommen!‘. Jeder dieser drei Auf- 
träge wäre nun weiter zu unterteilen, 
das ‚Hingehen‘ z. B. in ‚Haus verlas- 
sen, Straße entlang, links, Geschäft 
betreten‘. Als nächstes müßten Sie 
den Punkt ‚Haus verlassen‘ in ‚Tür 
ansteuern, Klinke fassen, ....‘ zerle- 


(TRace OFF) verwendet werden. 

Die Ablaufprotokollierung erfolgt 
unterschiedlich detailliert, sie kann 
beispielsweise alle angesteuerten 
Zeilennummern enthalten oder nur 
die Prozedurnamen in der Reihen- 
folge ihres Aufrufs. 
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Die Bank zieht 

Bei unserem 1744 Programmierspiel geht es um 
die Routinen, es der Bank zu ermöglichen, auf 
Aktionen des Spielers zu reagieren. Trotz aller 
Cleverneß, die Bank gewinnt immer. 


Elektronische Post 

Unser letzter Artikel der UNIX-Reihe befaßt 
sich mit einer weiteren Annehmlichkeit, die 
das System bietet: die elektronische Post. 
Jeder hat seine eigene Briefkastendatei. 


Bit für Bit 

| Bei 68000-Systemen benutzt die Peripherie 
den gleichen Kommunikationsbus, an den 
auch Speicher und CPU angeschlossen sind. 


In unserem Serviceteil 
geht es diesmal um ein 
Spielprogramm bei dem 
Sie ohne jedes Risiko in 
das Goldgeschäft ein- 
steigen können. Es geht 
um hohe Einsätze bei 
denen Sie Ihre Mitstrei- 
ter ausstechen können. 
Es geht um hohe Ein- 
sätze bei denen Sie Ihre 
Mitstreiter ausstechen 
können. Im Goldrausch 
werden Sie über Sich 
hinauswachsen und 
endlich einmal ohne je- 


>; 


